Question

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

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

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

Answer 1

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.