Процедуры и функции.

uses crt;
const n=15;
type mas=array[1..n] of integer;
function F(a:mas):integer;
var s:integer;
    i,imx:byte;
begin
imx:=1;
for i:=1 to n do
if a[i]>a[imx] then imx:=i;
if imx=1 then s:=0
else
 begin
  s:=0;
  for i:=1 to imx-1 do
  s:=s+a[i];
 end;
F:=s;
end;
procedure Massiv(var a:mas;c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to n do
 begin
  a[i]:=random(20)+1;
  write(a[i]:3);
 end;
writeln;
writeln('Сумма до максимального=',F(a));
writeln;
end;
var a,b,c:mas;
    z:longint;
begin
clrscr;
randomize;
Massiv(a,'A');
Massiv(b,'B');
Massiv(c,'C');
z:=sqr(F(a))+sqr(F(b))+sqr(F(c));
write('Сумма квадратов сумм=',z);
readln
end.

uses crt;
const n=15;
type mas=array[1..n] of integer;
procedure F(a:mas;var s:integer);
var i,imx:byte;
begin
imx:=1;
for i:=1 to n do
if a[i]>a[imx] then imx:=i;
if imx=1 then s:=0
else
 begin
  s:=0;
  for i:=1 to imx-1 do
  s:=s+a[i];
 end;
writeln('Сумма до максимального=',s);
writeln;
end;
procedure Massiv(var a:mas;c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to n do
 begin
  a[i]:=random(20)+1;
  write(a[i]:3);
 end;
writeln;
end;
var a,b,c:mas;
    sa,sb,sc:integer;
    z:longint;
begin
clrscr;
randomize;
Massiv(a,'A');
F(a,sa);
Massiv(b,'B');
F(b,sb);
Massiv(c,'C');
F(c,sc);
z:=sqr(sa)+sqr(sb)+sqr(sc);
write('Сумма квадратов сумм=',z);
readln
end.

uses crt;
const nmax=100;
type mas=array[1..nmax] of real;
procedure Vvod(var v:mas;x:byte;c:char);
var i:byte;
begin
writeln('Введите ',x,' элементов массива, не отрицательные числа:');
for i:=1 to x do
 begin
  repeat
  write('v[',i,']=');
  readln(v[i]);
  until v[i]>=0;
 end;
clrscr;
end;
procedure Vyvod(var v:mas;x:byte;c:char);
var i:byte;
begin
writeln(' массив ',c);
for i:=1 to x do
write(v[i]:0:2,' ');
writeln;
end;
function Summa(v:mas;x:byte):real;
var i:byte;
    s:real;
begin
s:=0;
for i:=1 to x do
s:=s+sqrt(v[i])+v[i];
Summa:=s;
end;
var a,b,c:mas;
    m,i:byte;
    s,y,t,u:real;
begin
clrscr;
repeat
write('Размер массивов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
Vvod(a,m,'A');
Vvod(b,m,'B');
Vvod(c,m,'C');
Vyvod(a,m,'A');
y:=Summa(a,m);
writeln('y=',y:0:2);
Vyvod(b,m,'B');
t:=Summa(b,m);
writeln('t=',t:0:2);
Vyvod(c,m,'C');
u:=Summa(c,m);
writeln('u=',u:0:2);
s:=y+t+u;
write('s=',s:0:2);
readln
end.