Составить программку.Вывести на экран числа кратные 14 от F до 8(Famp;gt;10)

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 ReadInteger('f=').Downto(8).Where(t-gt;t mod 14=0).Println

end.

f= 137

126 112 98 84 70 56 42 28 14

var F,a:integer;

begin

     while not(Fgt;10) do

     begin

           writeln('F= ');

           read(F);      

     end;

     for a:=F to F*8 do

     begin

         if (a mod 14 =0)  

         then write(a,' ')

     end;      

end.