Question

Напишите программу вычисляющую площадь квадрата. Стороны пользователь вводит с клавиатуры

Answer 1

var

a:integer;

s:longint;

begin

repeat

write ('A = ' );readln(a);

until (a>0);

s:=sqr(a);

writeln (s);

readln;

end.