Question

Написать программу нахождения квадрата числа

Answer 1

var a,res:integer;

begin

writeln('Введите число');

readln(a);

res:=sqr(a);

writeln('Квадрат числа,'a', равен,'res',');

readln;

end.