Перевод фунтов в килограммы. - Turbo Pascal

напечатать таблицу соответствующее между весом в футах и весом в килограммах для значений от 1 до 10 футов с шагом 1 фунт (1 фунт = 400гр.)

Листинг программы

var
  i: integer;
 
begin
  for i := 1 to 10 do writeln(i:2, 0.4*i:4:1);
  readln
end.

Объяснение кода листинга программы

В данном коде на языке Turbo Pascal реализована программа для перевода фунтов в килограммы.

Объявлены две переменные:
- i: integer; - целочисленная переменная для хранения значения от 1 до 10
- 0.4i:4:1 - строка для вывода в консоль, представляет собой перевод фунта в килограмм (0.4i кг)
Запускается цикл for от 1 до 10 с помощью ключевого слова for и переменной i.
Внутри цикла происходит вывод в консоль значения переменной i, умноженного на 0.4, и преобразование его в строку с помощью символа :, представляющего собой десятичную точку, и символа :, представляющего собой разделитель тысяч.
После завершения цикла запрашивается ввод с помощью функции readln.