А кроме первых трёх значений есть что-нибудь ещё,а то никак не решить.
Только это не квадрат, с разными сторонами.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ "...\Отделы\Обмен\";
ПЕР
a, b: ЦЕЛ;
УКАЗ
a := 37;
b := 92;
Вывод.ЧЦел("%d^%d", a * b, a * 2 + b * 2, 0, 0)
КОН Задание.
1) 2*2=4 - способа существует для покраски ёлок
program raf105;
var m: integer;
begin
write('Введите номер месяца: ');
readln(m);
case m of
12,1,2: writeln('Это зима');
3..5: writeln('Это весна');
6..8: writeln('Это лето');
9..11: writeln('Это осень');
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>