Составить программу классификации треугольников по его сторонам (вместо углов входными данными являются стороны треугольника a, b, c.)

Паскаль авс. программу можно использовать не только для 4-значных чисел, для этого надо только поменять значение n в строке  const n=4 на нужное. program  alyatu; uses crt; const n=4; var   i,z,s: integer; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln('используя признак делимости, программа оперделяет делится ли введённое 4-значное число  на 3'); writeln('введите число'); repeat       readln (z);   until ((z> 0) and (z< power(10,; for i: =1 to n do begin s: =s+z mod 10; z: =z div 10; end; if (s mod 3=0) then writeln('число делится на 3') else writeln('число не делится на 3');   end.

Var       max, min, prev_min, n: integer; begin       max : = -10000;       min : = 10000;       prev_min : = 10000;       repeat               read(n);               if n > max then begin                       max : = n;               end;               if n < min then begin                       prev_min : = min;                       min : = n;               end;       until n = 0;             writeln(max, ' ', prev_min); end.