Penggunaan If pada Turbo Pascal

Program Toserba;
uses crt;
var
pelanggan : char;
dis : string[3];
tot,blnja : real;
begin
clrscr;
writeln(' Dedix Toserba');
writeln('=================================');
write('Berbelanja sebesar = '); readln(blnja);
write('Pelanggan (y/t) ? : '); readln(pelanggan);

if pelanggan='y' then
begin
if blnja<=100.000 then
begin
tot := blnja -(10/100*blnja);
dis :='20%';
end
else

Download source lengkapnya di sini