вот код , повозился чуть-чуть и всё заработало )
------------------------------------------------------------------------------------------------

program pl;
uses crt;
var
  kod: integer; { введите единицу: 1-евро 2-доллар 3-фунт 4-йена : }
  kurs: real; { Курс: }
  edin: integer; { Ввод в иностранной валюте: }
  summ: real; { В роднулях - }
begin
  writeln('Вычесление по курсу валют.');
  writeln('введите единицу: 1-евро 2-доллар 3-фунт 4-йена :');
  write('Код единицы - ');
  readln(kod);
  write('Ввод в иностранной валюте: ');
  readln(edin);
  write('Единица: ');
  case kod of
   1: begin
        writeln('Евро');
        kurs:=42.916;
        end;
   2: begin
        writeln('Доллар');
        kurs:=31.496;
        end;
   3: begin
        writeln('Фунт');
        kurs:=49.465;
        end;
   4: begin
        writeln('Йена');
        kurs:=0.412;
        end;

  end;
       summ:=kurs*edin;
        writeln(summ ,' рублей');
end.