Поиск суммы элементов лежащих ниже главной диагонали РГРТУ Turbo Pascal

Лабораторная работа №11
Вариант – 8
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)

program Lab;
uses Crt;
const Size = 7;
var M: array[1..Size, 1..Size]of Real;
X, Y: Integer;
Sum: Real;
begin
 ClrScr;
 writeln(‘Введите ‘, Sqr(Size), ‘ элементов матрицы.’);
 for Y:=1 to Size do
for X:=1 to Size do
Read(M[X, Y]);
 Sum:=0;
 for X:=1 to Size do
for Y:=1 to Size do
if Y>X then
Sum:=Sum+M[X, Y];
 writeln(‘Сумма элементов, лежащих ниже главной диагонали равна ‘, Sum:5:2);
 Readln;
end.