По информатике 9 класс 1 : найти площадь кольца, если известны внутренний и внешние радиусы. 2 : найти периметр и площадь пр треугольника, если известны 2 катета сделать с паскаля

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.