Напечатать таблицу перевода расстояний в дюймах в сантиметры (1 дюйм =

program zz1;

var c, s:real; // задаем переменные не целого типа

begin

c:=1; // задаем начальное значение для переменной цикла

while c lt;= 10 do // организуем цикл, пока переменная цикла не достигнет заключительного значения

begin

s:=2.54 * c ; // получаем количество сантиметров, используя заданную формулу для перевода

writeln( для , c, дюймов, количество см = , s);  // выводим ответ в столбец

c:=c + 1; // увеличиваем переменную цикла на шаг, который равен единице

end;

end.