Contoh Program Kelipatan 5 Repeat Until Pada Pascal

Contoh Program Kelipatan 5 Repeat Until  Pada Pascal

uses crt;
var a: integer;
begin
clrscr;
a:=5;
repeat
write(a,' ');
a:=a+5;
until a>25;
readln;
end.

Output yang dihasilkan adalah :

5 10 15 20 25