Turbo Pascal Window: Program Bukan Nol

 Program Sederhana untuk menentukan bilangan tersebut 0 atau bukan... Konyol memang... tetapi penting sebagai dasar pembelajara. Haha... Check it out! Bentuk Program sebagai berikut:
Program BukanNol;
uses wincrt;
var
   x:integer;
begin
     clrscr;
     write('Masukkan Nilai 0!:');readln(x);
     while x<>0 do
     begin
     clrscr;
     write('Masukkan Nilai 0!:');readln(x);
     end;
write('Terima Kasih telah memasukkan nilai 0:)');
readln;
end.