Помогите плииз. Эта задача решается в Паскале! Составьте  программу для решения следующей задачи:Напечатайте таблицу перевода расстояний из дюймов в сантиметры (1 дюйм=2,54 см) для значений от 1 до 50 дюймов.

var i: integer;x: real;beginx := 2.54;for i := 1 to 50 dobeginwriteln (i, ' дюймов = ',x*i, ' сантиметров');end;readln;end.