CONTOH PROGRAM DERET KELIPATAN PASCAL

turbo pascal 1.5 - deret kelipatan x yang kurang dari y

program deretkelipatanxyangkurangdariy;
uses wincrt;

var
     x,y,i:integer;

begin

writeln('            =================================================         ');

writeln('');

writeln('                  PROGRAM DERET KELIPATAN                       ');

writeln('                    Dibuat oleh ricky coebra                          ');

writeln('                       @copyright 2013                                ');

writeln('');

writeln('            =================================================         ');

     write('X     = ');readln(x);
     write('Y     = ');readln(y);
     write('Deret = ');
     i:=x;
     while x<y do
     begin
          write(x,' ');
          x:=x+i;
     end;
end.