{Файл: prog_lab3_1.pas
Задача:
  Дано натуральное число n. Напечатать таблицу перевода сантиметров в дюймы, 
  и наоборот, состоящую из n строк. Точность - два десятичных занака.
Автор:
 
Дата:
  25,10,2015}
const e=0.393701; {1 сантиметр в дюймах}
      ed=2.54; {1 дюйм в сантиметрах}
var i, d1, k,  n:integer;
    d: real;

begin
{Ввод сантиметров}
repeat
  writeln (' количество строк');
  readln (n);
  writeln ('   cm    inch');
until n>=0;
{перевод сантиметров в дюймы}
d1:=1;{счетчик дюймов}
d:=0;{дюймы}
i:=0;{счетчик сантиметров}
k:=1; {счетчик строк}
while n>=k do
  begin
    d:=i*e;
    inc(k);
    if (d1<d) and (n>k) then
      begin
        writeln( d1*ed:5:2,'   ' ,d1:5);
        inc(d1);
        inc(k);
      end;  
    writeln(i:5,'   ',d:5:2);
    inc(i);
    
    
  end;
end.

{вывод }