Составьте программу для печати таблицы перевода расстояний из дюймов в сантиметры для значений дюйма,если 1 дюйм =25,4мм паскаль за 8 класс

Program asd;
USES crt;
Const d=2.54;
var  i: integer;
begin
For i:=10 to 22 do
 begin 
Writeln(' ',i,' * ',d,' = ',i*d:2:1); 
end;
end.