Contoh Program Kelipatan 5 While Do Pada Pascal

uses crt;
var a: integer;
begin
clrscr;
a:=5;
while a<=25 do
begin
write(a,' ');
a:=a+5;
end;
readln;
end.


Output yang dihasilkan adalah :

5 10 15 20 25