Contoh Program If pada Paskal

var a,b,c: integer;
begin
a:=45; b:= 18;
if a>=b then c:= a div b else c:= a mod b;
write(c);
readln;
end.


Hasilnya adalah :

2


Sumber : Pra UTS ATA 2011//2012 Algoritma & Pemprograman 2