Ребята Если это не правильно , то как тогда ?​

Program Vby_1;
uses crt;
var a,b,c:real;
begin
  writeln('***   Alphaues is thinking...   ***');
  writeln('Ok, введите катеты: ');
  write('a= ');readln(a);
  write('b= ');readln(b);
  writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2);
end.

Program Vby_2;
uses crt;
var a,b,h,t:real;
begin
  writeln('***   Alphaues is thinking...   ***');
  writeln('Ok, введите данные: ');
  write('Одно основание = ');readln(a);
  write('Другое основание = ');readln(b);
  write('Высота = ');readln(h);
  t:=abs(a-b)/2;
writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2);
end.

Program Vby_3;
uses crt;
var s:integer;
begin
  writeln('***   Alphaues is thinking...   ***');
  write('Ok, введите расстояние в сантиметрах: '); readln(s);
  write('Число полных метров = ',s div 100);
end.

Const n=?; {Кол-во элементов в массиве, написать число вместо "?"}
Var a,b:array[1..n] of integer;
x,k,i,j:integer;
Begin
 writeln('Init massive:');
 for i:=1 to n do
   begin
    readln(x); {а лучше написать read(x); и вводить числа через пробел одной строкой, красивее будет}
    a[i]:=x;
   end;
 k:=n div 2;
 if (n mod 2)<>0 then k:=k+1;
 j:=1;
 for i:=(k+1) to n do
   begin
    b[j]:=a[i];
    j:=j+1;
   end;
 if (n mod 2)<>0 then
   begin
    b[k]:=a[k];
    k:=k-1;
    j:=j+1;
   end;
 for i:=1 to k do
   begin
    b[j]:=a[i];
    j:=j+1;
   end;
 for i:=1 to n do write(b[i],' ');
End.