Ввести квадратную матрицу 10*10, в процедуре на место отрицательных элементов записать нули - Pascal

Формулировка задачи:

1) Составить программу из 2 частей, в основной программе ввести квадратную матрицу 10*10, в процедуре на место отрицательных элементов записать нули, на место положительных - единицы, в основной программе вывести на экран полученную матрицу: в естественном виде и треугольную матрицу, элементы которой лежат ниже побочной диагонали. 2) Написать программу расчета площади кольца при заданных внешних и внутреннем радиусе кольца, используя при этом подпрограмму вычисления площади круга 2 варианта: 1 - с процедурой, 2 - с функцией

Решение задачи: «Ввести квадратную матрицу 10*10, в процедуре на место отрицательных элементов записать нули»

Листинг программы

uses crt;
var r1,r2,s1,s2,ss: real;
 
function Scir(r: real):real;
begin
Scir:=pi*r*r;
end;
 
begin
write('Радиус  внешнего  круга  = ');
readln(r1);
write('Радиус внутреннего круга = ');
readln(r2);
ss:=Scir(r1)-Scir(r2);
writeln('Площадь кольца = ',ss:7:2);
end.

Объяснение кода листинга программы

В этом коде используется язык программирования Pascal. Вот список действий, которые выполняются в коде:

Вводится радиус внешнего круга.
Вводится радиус внутреннего круга.
Вычисляется площадь кольца по формуле S = π (R1R1 - R2*R2), где R1 - радиус внешнего круга, R2 - радиус внутреннего круга.
Выводится значение площади кольца.