program HelloWorld;
var k:integer;
begin
writeln('Введи сторону');
readln(k);
writeln(k*k)
end.
Program n1;
var a,b,c,d,p: real;
begin
readln(a,b,c,d);
p:=a+b+c+d;
writeln(p);
end.
Никлаус Вирт"Алгоритмы и структуры данных"<<Тебе сюда(Никто ответы тут писать тебе не будет)