Program Matr_Pifagor; {Пример программы с вложенными циклами. Требуется вывести на экран таблицу умножения целых чисел от 2 до 9 в форме матрицы Пифагора} Var M, N, P: of integer; {Описание переменных} Begin M:=2; {Подготовка внешнего цикла} While M<=9 do {Начало внешнего цикла} begin N:=1; {Подготовка внутреннего цикла} While N<=9 do {Начало внутреннего цикла} begin P:=M*N; {Вычисление произведения} Write(P:3);{Вывод произведения} N:=N+1 {Изменение параметра внутреннего цикла} end; {Конец внутреннего цикла} M:=M+1; {Изменение параметра внешнего цикла} Writeln {Перевод печати на новую строку} end {Конец внешнего цикла} end.