1. даны числа от 5 до 16. необходимо вывести на экран (в столбик) удвоенное значение каждого числа. пример вывода ответа: 5*2 = 10 6*2 = 12 и т.д. 2) напишите программу перевода расстояния из метром в сантиметры для значений длин от 1 до 15 метров. (информатика. 8 класс. паскаль)

Код:
1)
program project1;
var       
i:Integer;
begin  
for i:=5 to 16 do    
begin       
Write(i, ' * 2 =  ', i*2);     
Writeln;    
end; 
Readln;
end.
2)Выводит столбики:
program project1;
var i:integer;
begin
for i:=1 to 15 do
begin
Write(i, 'm = ', i*100, 'cm');
Writeln;
end;
Readln;
end.

Переводит значение введённого количества метров в сантиметры:
program project1;
var
   i:=real;
begin
Readln(i);
Writeln(i, 'm = ', i*100, 'cm');
end.