Реферат: Простые операторы в Паскале

Begin

Writeln (‘Таблица перевода расстояний из дюймов в сантиметры’);

R1 := 1;

Repeat

R2 := 2.5*R1;

Writeln (R1 :6, ‘ ‘, R2 :8:2 );

R1 := R1+ 1;

Until R1>20;

Readln;

End.