Насчет формулы не уверен, можешь подставить свою.
Var a:longint;
begin
read(a);
if a>0 then
a:=a+1;
<span>end.
</span>
Ответ:
Привет можешь перефотать а то не видно?
Объяснение:
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.