Объяснение:

var s,n,d,e:integer;

m: string;

begin

writeln('Курс доллара?');

readln(d);

writeln('Курс евро?');

readln(e);

writeln ('Сколько рублей у посетителя?');

readln(n);

writeln ('доллар или евро?');

readln(m);

if m='доллар' then s:=n div d;

if m='евро' then s:=n div e

else writeln('Такой валюты нет');

writeln(s);

end.