Задачки по информатике 9 класс1 задачка: найти площадь кольца, если знамениты

Program kolco;
uses crt;
var r1, r2:Real;
begin
Write('Введите наружный радиус кольца ');
ReadLn(r1);
Write('Введите внутренний радиус кольца ');
ReadLn(r2);
Write('Площадь кольца одинакова ', 3.14*(r1*r1-r2*r2));

readln;
end.

program triangle;
uses crt;
var k1, k2:Real;
begin
Write('Введите длину первого катета ');
ReadLn(k1);
Write('Введите длину второго катета ');
ReadLn(k2);
WriteLn('Периметр треугольника равен ', sqrt(k1*k1+k2*k2)+k1+k2);
Write('Площадь треугольника равна ', 0.5*k1*k2);

readln;
end.