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

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