program exchange;
uses Crt;
var Msuma,Skk,mp,kurz,vyplata:real;
mena:string;
v:char;
begin clrscr;
write('Zvol menu:');
read(mena);
write('Aktualny kurz v korunach:');
read(kurz);
writeln('Chcete vymenit ',mena,' za koruny(M) alebo koruny za ',mena,'(K)?');
v:=readkey;
if v='m' then
begin writeln('Kolko ',mena,' za koruny chcete vymenit?');
read(Msuma);
Skk:=Msuma*kurz;
vyplata:=Skk-2*skk/100;
writeln('Vyplatene bude ',vyplata:0:2,'Skk':5)
end;
if v='k' then
begin
writeln('Kolko korun za ',mena,' chcete vymenit?');
read(Skk);
Msuma:=Skk/kurz;
vyplata:=Msuma-2*Msuma/100;
writeln('Vyplatene bude ',vyplata:0:2, mena:5);
end;
repeat until keypressed;
end.