Contoh Program Kelipatan 5 For Do Pada Pascal

uses crt;
var a: integer;
begin
clrscr;
for a:=5 to 25 do
if (a mod 5 =0) then
write(a,' ');
readln;
end.


Output yang Keluar Adalah :

5 10 15 20 25