program z1;
var a:integer;
begin
write('a = ');
readln (a);
if a<0 then write ('a^2 = ',sqr(a));
if a>0 then write ('sqrt(a) = ',sqrt(a));
end.
program z1;
var a:integer;
begin
write('a = ');
readln (a);
if a<0 then write ('a^2 = ',sqr(a));
if a>0 then write ('sqrt(a) = ',sqrt(a));
end.