Помогите пожалуйста Задача ** циклы.Напишите программу печати таблицы перевода расстояний...

Question

Помогите пожалуйста Задача на циклы.Напишите программу печати таблицы перевода расстояний из дюймов в сантиметры значений длин от 1 до 20 дюймов.1-дюйм =2,54см

Answer 1

Program sm;
var
i: Integer;
begin
for i:=1 to 20 do
WriteLn(i, ' dujm = ', i*2.54, ' cm');
ReadLn;
end.