Помогите с инфой

1. Программа для вычисления периметра и площади прямоугольника на языке Pascal: program rectangle; var width, height, perimeter, area: real; begin writeln('Enter the width of the rectangle: '); readln(width); writeln('Enter the height of the rectangle: '); readln(height); perimeter := 2 * (width + height); area := width * height; writeln('The perimeter of the rectangle is: ', perimeter:0:2); writeln('The area of the rectangle is: ', area:0:2); readln; end. 2. Программа для вычисления периметра и площади прямоугольного треугольника по заданным длинам двух катетов a и b на языке Pascal: program right_triangle; var a, b, perimeter, area: real; begin writeln('Enter the length of the first cathetus: '); readln(a); writeln('Enter the length of the second cathetus: '); readln(b); perimeter := a + b + sqrt(a*a + b*b); area := 0.5 * a * b; writeln('The perimeter of the right triangle is: ', perimeter:0:2); writeln('The area of the right triangle is: ', area:0:2); readln; end.