rogram Smenarna;
const
Rezie = 0.01;
Mena = 'DEM'; Kurs = 18.36;
var
Vklad,r : real;
odp : char;
begin
writeln('Smenarna -- smena castky v Kcs za menu ',Mena);
write('Castka v Kcs ke smene: '); readln(Vklad);
write('Smi celkova castka prekrocit tuto castku? [A/N] ');
readln(odp);
if Upcase(odp) = 'A' then r:= Int(Vklad/Kurs)
else r:= Int((Vklad-Vklad*Rezie)/Kurs);
writeln('Mena Mnozstvi Kurs Kurs.hodnota');
writeln(Mena,r:13:2,Kurs:10:2,r*Kurs:15:2);
writeln('Vylohy:',Vklad*Rezie+1-Frac(r*Kurs):34:2);
r:= r*Kurs+Vklad*Rezie+1-Frac(r*Kurs);
writeln('-----------------------------------------');
writeln('Celkem k zaplaceni:',r:22:2);
end.

Maturita.cz - referát (verze pro snadný tisk)
http://www.maturita.cz/referaty/referat.asp?id=1294