А ты не пробовала написать этот кусок алгаритма в Pascal?
если х=-3, а у=-2; Х=-2,У=-1.
если х=-1, а у=4; Х=0 ,У=2
Var x, y: integer;
begin
readln(y);
x := 0;
if x>0 then (двоеточие не надо)
writeln(x, y);
end.
Я думаю,Андрей стал космонавтом,Константин програмистом,а Петр архитектором