Напишите пожалуйста 2 программы в pascal ABC, программы в описании

решение на Pascal ABC

var a, b, c, max, min: integer;
begin
write (' 1-я сторона = ');
readln (a);
max:=a;
min:=a;
write (' 2-я сторона = ');
readln (b);
if b < min then min:=b;
if b > max then max:=b;
write (' 3-я сторона = ');
readln (c);
if c < min then min:=c;
if c > max then max:=c;
if (sqr(max) = sqr(a+b+c-min-max)+sqr(min)) then writeln ('прямоугольный' )
else writeln (' непрямоугольный ');
end.

var i, x, min: integer;
begin
write (' 1-е число = ');
readln (x);
min:=x;
i:=1;
while i < 4 do
begin
inc(i);
write (' ',i,'-е число = ');
readln (x);
if x < min then min:=x
end;
writeln (' минимальное число =', min);
end.

if (a*a = b*b + c*c) or (b*b = a*a + c*c) or (c*c = b*b + a*a) then writeln 'Yes') else writeln('no');, аналогично с 1)

Не вздумай платить «Зотикову» -который тебе ответил, РЕШАЕТ НЕВЕРНО ВСЕМ-будет у тебя деньги выпрашивать за решения–кидает тут всех тупо на бабки! Сидит на даче безработный старпёр беззубый импотент С НЕМЫТЫМИ САЛЬНЫМИ ВОЛОСАМИ и кидает студентов!!! Моего друга обул на 320 руб–денег не вернул!!! У этого мошенника Зотикова есть еще страницы-ИХ УЖЕ ЗАКРЫЛИ ЗА МОШЕННИЧ-ВО-он с трёх страниц кидает одновременно!!! Имя сменил только.

Здесь можно найти ответ vk. cc/6lPr90 (убери пробел) 299283