Pascalda Ekok Programı, Pascalda Sayının Ekok unu Bulma

Program ekok_;
uses crt;
     var
     x,y,s1,s2:Longint;
     BEGIN
     clrscr;
     write('1. sayıyı giriniz='); readln(s1);
     write('2. sayıyı giriniz='); readln(s2);
     x:=s1;
     y:=s2;
     while s1<> s2 do
     if s1>s2 then
     s2:=s2+y else
     s1:=s1+x;
     writeln('Sayıların Ekoku=', s1);
     readln;
     end.