var a: real;
begin
write('введите длину стороны квадрата: ');
readln(a);
write('площадь квадрата: ',a*a);
end.
var a: real;
begin
write('введите длину стороны квадрата: ');
readln(a);
write('площадь квадрата: ',a*a);
end.