Напишите 2 программы в pascal abc 1.даны 4 числа, найти наименьшее из них 2.даны 3 стороны треугольника, является ли он прямоугольным?

1program z1; var a,b,c,d, min1, min2, min: real; begin writeln ('введите 4 числа: '); readln (a,b,c,d); if a< b then min1: =a else min1: =b; if c< d then min2: =c else min2: =d; if min1< min2 then min: =min1 else min: =min2; writeln ('наименьшее число: ',min); end. 2 program z1; var a,b,c,d,g,k: real; begin writeln ('введите стороны треугольника: '); readln(a,b,c); if a< b then begin k: =a; d: =b; end else begin k: =b; d: =a; if d< c then g: =c else g: =d; if g*g=d*d+k*k then writeln ('треугольник прямоугольный') else writeln('треугольник не прямоугольный'); end.