Question

написать программу определения пренажлежности 4-х точек а,b

Answer 1

begin

var a, b: integer;

readln(a);
readln(b);

if 4 - a = b then begin
 { ... }
end;

end.