Напишите программу по обмену сомов на доллары и евро. *​

Для создания такой программы

1) загрузи в базу данных с переменной curss курс валют

2) просто копируешь в интернете код калькулятора и добавляешь переменную

егора-зеленая на 16гб

василий-желтую на 8гб

пети-краснаяна 4гб

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.