Question

Помогите
как решить

Answer 1

А что тут решать ? Возьмите какую-нибудь книгу\урок в интернете по паскалю чтобы в дальнейшем не возникало таких вопросов.
var S,a:real;
begin
write("Введите сторону квадрата: "); readln(a);
S=a*a;
writeln("Площадь квадрата: ", S);
end.