РЕШИТЬ!
НАДО СДЕЛАТЬ ПРОГРАММУ (ПРИМЕР НА 3 СКРИНЕ)

program n1;

var

a, b, c : integer;

begin

readln(a, b);

if a > b then

   c := a

else

   c := b;

writeln(c);

end.

program n2;

var

a, b, c : integer;

begin

readln(a, b, c);

if a = b then

   if b = c then

       write('Треугольник равносторонний!')

   else

       write('Треугольник не равносторонний')

else

   write('Треугольник не равносторонний');

end.