PASCAL

Langkah-langkah Membuat TPW :

1. Klik TPW 1.5

2. Klik File, pilih new noname00

3. Ketiklah contoh dibawah ini, setelah itu tekan Ctrl + F9

Uses wincrt;

Var
nilai:Integer;
ket:string[8];
kembali:char; label awal;
begin
awal:
writeln('istimewakan saya');
writeln('masukkan nilai anda:');readln (nilai);

If nilai>=90 then ket:='istimewa'

else
ket:='baik cukup kurang';
writeln (ket);
writeln('lagi:');
kembali :=readkey;
If kembali= 'y'then

goto awal;

end.