program foo;
uses Crt;
var
a, s: real;
begin
ClrScr;
write('Сторона квадрата: ');
read(a);
s := Sqr(a);
Writeln('Его площадь: ', s:0:2);
ReadKey;
end.
