массив состояший из 5-ти целочисленных элементов .в выводе использовать writeln .

Program Zilly;
uses crt;
const n=10;
var
  a,b,c:real;
  tup,pryam:integer;
begin
 writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  tup:=0;
  pryam:=0;
  writeln('Введите стороны треугольника');
  write('А = '); readln(a);
  write('B = '); readln(b);
  write('C = '); readln(c);
  a:=a*a;
  b:=b*b;
  c:=c*c;
  if a=b+c then pryam:=1;
  if b=a+c then pryam:=1;
  if c=a+b then pryam:=1;
  if a>b+c then tup:=1;
  if b>a+c then tup:=1;
  if c>a+b then tup:=1;
  if tup=1 then writeln('Треугольник тупоугольный')
    else
      if pryam=1 then writeln('Треугольник прямоугольный')
         else writeln('Треугольник остроугольный');
end.

uses crt; const n:Integer; var a:array[1..20] of integer; // 20 это предустановлена в условии граниа не указанно можно 99 поставить       i,j,k:integer; begin  randomize; // это для генерации случайных чмсел у тебя могут быть предусановлены  for i:=1 to n do    a[i]:=random(99); // ну собственно генерация чисел от 0 до 99( в блок схеме это не нужно)   for i:=1 to n-1 do     for j:=i+1 to n do        if a[i]>a[j] then begin  k:=a[i]; a[i]:=a[j]; a[j]:=k; end;     end. немного линни не пямые )) но разобратся сможешь