Program Algoritma Cetak angka dengan Repeat

program cetak_angka;
uses crt;
var
 k : integer;

begin
clrscr;
 writeln('       Program Algoritma Cetak angka dengan Repeat');
 writeln(   '--------------------------------------------------------');

 writeln;
 k := 1;
 repeat
 writeln(k);
 writeln;
 k := k + 1;
 until k > 5;
 readln;
end.

 

 Hasil Output nya

Semoga bermanfaat :)