Кто в начале XX в. сконструировал так привычный сегодня на городских улицах троллейбус?

может быть так:
var x1,x2,y1,y2:integer;
                      a,b:real;
 begin
  write ('Введите x1 и x2: ');
  readln (x1,x2);
  write ('Введите y1 и y2: ');
  readln (y1,y2);
  a:=sqrt (sqr (x1) + sqr (y1));
  b:=sqrt (sqr (x2) + sqr (y2));
  if a>b then writeln ('1-я точка ближе')
  else writeln ('2-я точка ближе');
 end.