program pascal mencari bilangan kelipatan 5

program kelipatan_5;
Uses wincrt;

var
x,y:longint;

begin
    clrscr;
    write('Berapa kelipatan 5 yang ingin ditampilkan = ');
    readln(x);
    writeln('============================================================================');
    write('Hasil dari ',x,' kelipatan 5  = ');
    for x:=1 to x do
        begin
             y :=5*x;
         write(y,' ');
        end;
end.