Wednesday, July 3, 2013

uses wincrt;
var c,d:integer;
begin
write('masukan c:');readln(c);
write('masukan d:');readln(d);
if (c>d) then
begin
write(c,'lebih besar dari',d);
end
else
begin
write(c,' lebih kecil dari',d);
end
end.

1 comment:

  1. Welcome Bonus and Free Spins at Casinoland.com - Casino
    Bonuses and Free Spins are 바카라 사이트 주소 a welcome bonus 임요환 포커 offered to new players only. For 슈 의 캐릭터 슬롯 머신 a 사카미치 마루 limited time you can receive a no deposit 벳 365 우회 bonus worth up to £100. Claim at Casinoland

    ReplyDelete