Contoh Program Pascal | IF (Sederhana)

uses wincrt ;
var nama: string;
tinggi, berat :real;
u:real;
i,k,g:real;
begin
clrscr;
writeln('selamat datang di program ukur ideal');
writeln('====================================');
write(' masukan nama anda                    :');readln(nama);
write('masukan tinggi anda                   :');readln(tinggi);
write('masukan berat badan anda              :');readln(berat);
u:= tinggi- berat;
if (u>50) and (u<=65) then
begin
writeln(' berat tubuh anda ideal');
end
else if (u>50) then
begin
writeln(' anda termasuk orang kurus');
end
else if (u<65) then
begin
writeln(' anda termasuk orang gemuk');
end
end.