Ответ:

Объяснение:

program EurToRub;

const

   Rate = 68;

var

   Eur : integer;

   Rub : real;

begin

   for Eur:= 1 to 10 do begin

       Rub := Eur * Rate;

       writeln (Eur, ' EUR = ', Rub:5:2, ' RUB');

   end;

end.