Ответ(ы) на вопрос:
Гостьuses crt;
var n,st:integer;
begin
writeln('Напишите число которое нужно возвести в квадрат');Readln(n);
st:=sqr(n);
writeln(st);
end.
Примечание: Uses crt; пишем если работаем на ABC Pascal
Не нашли ответ?
Похожие вопросы