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) endend.
РезультатДлина стороны 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