Question

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

Answer 1

var inch:integer;
begin
  writeln('*   alphaues is thinking...   *');
  writeln;
  writeln('*******************************');
  for inch:=1 to 20 do
     writeln('*      ',inch,' inches = ',inch*2.54,'      *');
  writeln('*******************************');
end.