uses GraphABC;
begin
SetWindowWidth(800); //ширина окна программы
SetWindowHeight(600); //высота окна программы
SetPenWidth(5); //толщина пера
setpencolor(clblue);
Rectangle(1, 600, 200,450);
Rectangle(150, 300, 200,450);
Line(1, 450, 150,450);
Line(150,450, 75,150);
Line(75,150, 1, 450 );
Line(200, 197, 400,197);
Line(400, 197, 300,107);
Line(300, 107, 200,197);
Rectangle(200, 600, 400,200); //дом
Rectangle(400, 600, 600,450); //дом
Rectangle(450, 300, 400,450); //дом
Line(447, 447, 600,447);
Line(600,447, 520,150);
Line(520,150, 447, 447);
Circle(300,300,50);
Circle(520,130,25);
Circle(75,130,25);
end.
var
a, b, c: integer;
begin
write('введите номер месяца - ');
readln(a);
case a of
1, 2, 12:
begin
writeln('время года - зима');
if (a = 1) or (a = 12) then write('кол-во дней - 31') else write('кол-во дней - 28')
end;
3, 4, 5:
begin
writeln('время года - весна');
if (a = 3) or (a = 5) then write('кол-во дней - 31') else write('кол-во дней - 30')
end;
6, 7, 8:
begin
writeln('время года - лето');
if (a = 7) or (a = 8) then write('кол-во дней - 31') else write('кол-во дней - 30')
end;
9, 10, 11:
begin
writeln('время года - осень');
if (a = 9) or (a = 11) then write('кол-во дней - 30') else write('кол-во дней - 31')
end;
else write('введен неправильный номер месяца');
end;
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrGen(18,i->i+6); a.Println;
end.
Пример
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23