Построить таблицу значений периметра и площади прямоугольника при изменении длин его сторон от 1 см до 10 см с шагом в 1 см. можно без таблицы ток решение.

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   for var a: =1 to 10 do begin       writeln('длина стороны ',a,' см');       for var b: =1 to 10 do           writeln('вторая сторона ',b: 2,', периметр ',2*(a+b): 2,                   ', площадь ',a*b: 3)       end end. результат длина стороны 1 см вторая сторона  1, периметр  4, площадь    1 вторая сторона  2, периметр  6, площадь    2 вторая сторона  3, периметр  8, площадь    3 вторая сторона  4, периметр 10, площадь    4 вторая сторона  5, периметр 12, площадь    5 вторая сторона  6, периметр 14, площадь    6 вторая сторона  7, периметр 16, площадь    7 вторая сторона  8, периметр 18, площадь    8 вторая сторона  9, периметр 20, площадь    9 вторая сторона 10, периметр 22, площадь  10 длина стороны 2 см вторая сторона  1, периметр  6, площадь    2 вторая сторона  2, периметр  8, площадь    4 вторая сторона  3, периметр 10, площадь    6 вторая сторона  4, периметр 12, площадь    8 вторая сторона  5, периметр 14, площадь  10 вторая сторона  6, периметр 16, площадь  12 вторая сторона  7, периметр 18, площадь  14 вторая сторона  8, периметр 20, площадь  16 вторая сторона  9, периметр 22, площадь  18 вторая сторона 10, периметр 24, площадь  20 длина стороны 3 см вторая сторона  1, периметр  8, площадь    3 вторая сторона  2, периметр 10, площадь    6 вторая сторона  3, периметр 12, площадь    9 вторая сторона  4, периметр 14, площадь  12 длина стороны 10 см вторая сторона  1, периметр 22, площадь  10 вторая сторона  2, периметр 24, площадь  20 вторая сторона  3, периметр 26, площадь  30 вторая сторона  4, периметр 28, площадь  40 вторая сторона  5, периметр 30, площадь  50 вторая сторона  6, периметр 32, площадь  60 вторая сторона  7, периметр 34, площадь  70 вторая сторона  8, периметр 36, площадь  80 вторая сторона  9, периметр 38, площадь  90 вторая сторона 10, периметр 40, площадь 100

пяти красок - не решаема

только вот доказательств не знаю

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.