Рекурсивная функция для вычисления максимального элемента из n-элементов.

uses crt;
type mas=array[1..50]of integer;
var a:mas;
    n,i:integer;
function Max(n:integer):integer;
var w:integer;
begin
if n>1 then
 begin
  w:=Max(n-1);
  if a[n]<w then Max:=w
  else Max:=a[n]
 end
else Max:=a[1]
end;
 
begin
clrscr;
randomize;
write('Razmer massiva A n=');
readln(n);
writeln('Massiv A:');
for i:=1 to n do
  begin
    a[i]:=random(20);
    write(a[i],' ');
  end;
writeln;
write('max=',Max(n));
readln
end.

uses crt;
type pole=1..8;
var a,b,c,d,e,f:pole;
begin
clrscr;
randomize;
a:=random(8)+1;
b:=random(8)+1;
c:=random(8)+1;
d:=random(8)+1;
e:=random(8)+1;
f:=random(8)+1;
writeln('Kon:  ',a,' ',b);
writeln('Ferz: ',c,' ',d);
writeln('Pole: ',e,' ',f);
if ((abs(a-e)=1)and(abs(b-f)=2))or((abs(a-e)=2)and(abs(b-f)=1)){может пойти на поле}
and(((c=e)and(d=f)){конь бъет ферзя}
or(((c<>e)and(d<>f)){ферзь не на горизонтали или не на вертикали}
and(abs(c-e)<>abs(d-f)))){ферзь не на диагонали}
then write('Yes!')else write('No!');
readln
end.