Contoh program dengan IF

Assalamualaikum wr wb

Hello sahabat-sahabatku, Alhamdulillah ini saya mau berbagi lagi mengenai perkondisisan di dalam pascal. Struktur umumnya adalah if <kondisi> then <pernyataan> else <pernyataan>. Apabila if di dalam if maka strukturnya if <kondisi> then <pernyataan> else if <kondisi> then <pernyataan>. Oke untuk contohnya sebagai berikut.

program ktp;
uses wincrt;
var
umur:integer;
ket:string;

begin
write('masukkan umur= '); readln(umur);
if (umur>=17) then
ket:='selamat Anda boleh ikut pemilu'
else
ket:='maaf Anda belum boleh ikut pemilu';
writeln(ket);
end.

Program di atas apabila dirunning hasilnya adalah:

 Apabila kondisi berninai true (benar)

Apabila kondisi berninai false (salah)

Demikian sahabat-sahabatku, semoga bermanfaat :)
Wassalamualaikum wr wb.