1. Даны числа от 5 до 16. Нужно вывести на экран

1)

Program ydvoenie; // задаём заглавие программке
var
i: integer; // Создаём переменную i
begin
   i := 5;
   while i lt;= 16 do // цикл с условием перебора от 5 до 16 включительно
   begin
      println(i, * 2 = , i*2); // тело цикла, тут делается умножение на 2 и вывод на экран
      i:= i+1; // повышение значения счётчика i
   end;
end.

2)

Program metrivsm;
var
i: integer;
begin
  i := 1;
  while i lt;= 15 do 
  begin
     println(i,м., =, i*100, см); // выводим значения в виде 1 м. = 100 см 
     i:= i+1;
  end;
end.