Question

напишите программы на языке Паскаль. Срочно!

Answer 1

program did;
uses crt;
var x1,x2,y1,y2:integer;
begin

readln(x1);
readln(y1);
readln(x2);
readln(y2);
if (Abs(x1)+abs(y1))>(Abs(x2)+abs(y2))
then write(2)
else write(1);
end.