стремное задание, но там не дана переменная k, поэтому ответ будет 4.
или 2880.
Program Kwan78;
var a: real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('*** OK! ***');
writeln();
write('Введите длину стороны квадрата ');
readln(a);
writeln('Площадь квадрата равна ',a*a);
end.
те которые занимаются трофическом построениями