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

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.