Отрезок Опции

[Witaliy]

Даны координаты конца и начала отрезка (целочиселные координаты) Нужно найти количество точек с целочиселными координатами, что лежат на отрезке:
Пример: 0 0 3 3
Ответ: 4.

Две точки как минимуи должны быть.

Спасибо

[amega]

program _1_;
var
   i:integer;
   j:integer;
   x1,x2,y1,y2,k,a,b:integer;
begin

{ сюда впихуеш ввод х1. х2 ...}

k:=0;
 a:=x2-x1;
 b:=y2-y1;
 for i:=x1 to x2 do
 for j:=y1 to y2 do
     if (a*(j-y1)) = (b*(i-x1)) then k:=k+1;
 writeln(k);
 readln;
 end.