Program Kondisi

program repeatuntil;
uses wincrt;
var
i : integer;


begin

 i:=1;
 repeat
  writeln(' Ini yang ke', i,'. Aku bangga jadi Mahasiswa Fisika.');
  i:=i+1;
  until i>100;

end.

Categories: DDPK