Разработать программу вывода названия месяца, если он задан целым числом от 1 до 12. В программе использовать оператор if-else
Надо код программы и внешний вид формы

program osi;

uses crt;

const

 GREEN = 2;

 BLUE = 1;

 CYAN = 3;

 WHITE = 7;

 MAX_X = 120;

 MAX_Y = 30;

 PI = 3.1415926;

 MX2 = MAX_X div 2;

 MY2 = MAX_Y div 2;

procedure out(x,y: integer; s:char);

begin

 if (x+MX2>-1) and (x+MX2<MAX_X+1) then

   if (MAX_Y-(y+MY2)>0) and (MAX_Y-(y+MY2)<MAX_Y+1) then begin

     gotoxy(x+MX2, MAX_Y-(y+MY2));

     write(s);

   end;

end;

{----------------------------------------------------------------}

{Основная программа}

var

 i, y :integer;

begin

 textcolor(WHITE);

 for var x := -MX2 to MX2 do

   out(x, 0, '-');

 for y := -MY2 to MY2 do

   out(0, y, '!');

 out(-1, 14, '/');

 out(1, 14, '\');

 out(60, 0, '>');

{Рисуем прямую y = x}

 textcolor(GREEN);

 for var x:=-MY2 to MY2 do

   out(x, x, '*');

{Рисуем график y=x^2}

 textcolor(BLUE);

 for var x := -MY2 to MY2 do begin

   y:=x*x;

   out(x, y, '*');

 end;

{Рисуем график y=x*sin(30)}

 textcolor(CYAN);

 for var x := -MX2 to MX2 do begin

   y := round(x * sin(PI / 6));

   out(x, y, '*');

 end;

 read(i);

end.

Результат:

1)

var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 10 do

begin

if mas[i]<0 then counter:=counter+1;

end;

end.

2)

var mas: array[1..5] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 5 do

begin

if (mas[i]>0) and (i mod 2 = 0) then counter:=counter+1;

end;

end.

3)

var mas: array[1..15] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 15 do

begin

if (mas[i]>5) and (i mod 2 = 0) then counter:=counter+1;

end;

end.

4)

var mas: array[1..15] of integer;

var counter: integer;

begin

for i:= 1 to 15 do

begin

mas[i] = random(20) - 5;

end;

for i:= 1 to 15 do

begin

writeln(mas[i]);

end;

for i:= 1 to 15 do

begin

if (mas[i]>0) then counter:=counter+1;

end;

end.

5)

var mas: array[1..7] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 7 do

begin

readln(mas[i]);

end;

for i:= 1 to 7 do

begin

if mas[i]>0 then mas[i]=0;

end;

for i:= 1 to 7 do

begin

writeln(mas[i]);

end;

end.

6)

var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

var sum: real;

var average: real;

begin

for i:= 1 to 7 do

begin

readln(mas[i]);

end;

for i:= 1 to 7 do

begin

if mas[i]<0 then

begin

sum:=sum+mas[i];

counter:=counter+1;

end

end;

average:= sum/counter;

end.

Объяснение: