Составить программу которая выводит соотношение между евро и рублём 10 строчек
типа 1 евро это 68 руб и таких до 10 евро в столбик

Объяснение:

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.