contoh pemograman pascal menggunakan while do

Uses Crt;
Var
N : Integer;
Begin
Clrscr;
N := 0;
While N > 5 Do
Begin
N := N + 1;
Write(‘Looping ke- ’,N);
Writeln(‘  PASCAL);
End;
Readln
End.