Синформатикой
1)вывести в строчку все числа от 20 до 8

2)вывести 13 раз фразу "! "

3)напечатать таблицу соответствия между весом в фунтах и килограммов для значений 1, фунтов (1 фунт-453г)

program hryun;

var

 i: integer;

begin

 for i := 20 downto 8 do

   write(i, ' ');

 writeln;

 for i := 1 to 13 do

   write('Привет! ');

 writeln;

 for i := 1 to 10 do

   writeln(i:2, 0.453 * i:10:3);

end.