Question

информатика!! задать число x если х<0,то y=x'2 иначе y=x'2 . выдать у . а) х=-11

Answer 1

var x,y: Integer;
begin
readln(x);
if x<0 then y:=sqr(x) else
y:=sqr(x);
writeln(y);
end.