var a,res:integer;
begin
writeln('Введите число');
readln(a);
res:=sqr(a);
writeln('Квадрат числа,'a', равен,'res',');
readln;
end.
