Code Pascal (berat badan)

PERTAMAX Kita buka dulu aplikasi Free Pascal IDE. jika belum punya download langsung di situsnya saja klik DISINI untuk mendownloadnya setelah itu install dulu lah.....!!!!
lalu jalankan aplikasinya klik file => new=> ketik kode ini.

Program tinggi_badan;
uses crt;
var tinggi: integer;
lagi :Char;
begin
lagi:='Y';
While (lagi='Y') or (lagi='y') Do
begin
clrscr;
write('Masukkan tinggi badan = ');readln(tinggi);
if tinggi >175 then write('Badan tinggi ')
else if tinggi <175 then write('Badan rendah ')
else write('Badan sedang ');
Write(' ===> ulangi Lagi (Y/T):');
readln(lagi);
end;
end.

keterangan:
Huruf warna Merah : Adalah nama Programnya
Huruf warna Hijau : Digunakan untuk menghapus tulisan yang biasanya ada di atas ketika
program jadi (anda bisa menyertakannya atau tidak)
Huruf warna Kuning : Adalah variabelnya. anda bisa menggantinya sesuka hati misalnya q, x,y,
dsb. (misal, jika var (tertulis) "badan" (tanpa tanda kutip) maka huruf
yang bewarna kuning harus tertulis "badan" (tanpa tanda kutip) jika anda
tidak mau menemukan error/fatal
Huruf warna Biru : Pesan-pesan untuk memperjelas saja (anda bisa menggantinya kok!!!!!)

Maaf Klo code diatas tidak bisa di Copy paste, Karena katanya guru TIK saya kalau mau cepat mengertinya harus di ketik ulang atau kalau bisa dilihat sekilas codenya lalu diketik tanpa melihat contoh codenya lagi (agar tahu dimana kesalahan-kesalahan yang terjadi/ ada).
Jika sudah di ketik semua tekan ctrl+F9

Untuk Hasilnya (klik gambar jika tidak kelihatan atau tekan tombol Tengah Mouse):

Pertamax masukan tinggi badan



misalnya saya masukan 176



Tadaa....... ^_^ program menyatakan badan tinggi. ini karena 176 lebih tinggi dari pada 175 (if tinggi >175 then write('Badan tinggi ')).
Sekian. semoga bermanfaat..............!!!!!!!!