Contoh Program Angka Kelipatan dalam Pascal

Saya akan membagikan program untuk membuat angka kelipatan dengan proteksi

Uses crt;

var
x,y,z,a,b:longint;

begin
    clrscr;
    writeln('MENU 1 - Perhitungan Angka');
    writeln('--------------------------');
    write('batas bawah : ');
    readln(a);
    write('batas atas  : ');
    readln(b);
    write('masukan angka : '); // angka yang akan jadi kelipatan
    readln(z) ;
    writeln();
    writeln('Hasil :');
    for x:=1 to 1000 do
        begin
             y :=z*x;
         if (y>=a) then
         if (y<=b) then
         begin
         writeln(y);
         end;
        end;
        readkey;
end.