Question

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

Answer 1

Если у тебя Паскаль, то 
if(a div b=0), to a*a
writeln(a);
Но если что это вводный цикл