Объяснение:
begin
var N:=readinteger('N=');
if (N>0) and (N mod 5 =0) then
Writeln('N=',sqrt(N)) else
Writeln('N=',N**2);
end.
