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

Выше пользователь с ником "Kmaod qwer" скопировал результат работы нейросети. И, хоть на этот раз, результат нормальный (хоть и топорный), но не всегда нейросеть правильно пишет. В его программе во-первых код длинный, а во-вторых, нет защиты от неправильного ввода (например, отрицательных величин).

Вот программы:

1)

 Program P1; 

uses crt; 

var a, b: real; 

begin 

clrscr; 

writeln ('Введите с клавиатуры 2 стороны прямоугольника (только числа) по 1. После ввода значения каждой из сторон нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите 1-ую сторону прямоугольника: '); 

readln (a); 

if a

1) Длины

 var a,b: real; begin writeln('a b: '); readln(a,b); 

writeln('S = ',a*b,', P = ',2*(a+b)) end. 

2) Площадь прямоугольного треугольника и его периметр по катетам a и b:
S = ½•a•b, P = a+b+√(a²+b²)

 var a,b: real; begin writeln('a b: '); readln(a,b); 

writeln('S = ',0.5*a*b,'P = ',a+b+sqrt(a*a+b*b)) end. 

Вот и всё! И ни в коем случае не надо здесь ничего лишнего! ))

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.