Версия для печати темы

uses
  Sysutils;

const
   n=7;
   m=5;
type
   a = array[1..n] of integer;
   b = array[1..m] of integer;
procedure Input(var m1 : a; VAR m2 : b);

var
   i : byte;
begin
   for i := 1 to n do  begin
       writeln;
       write('a[',i,']= ');
       readln(m1[i]);
    end;
   writeln;
begin
for i := 1 to m do  begin
       writeln;
       write('b[',i,']= ');
       readln(m2[i]);
    end;
   writeln;
end; end;


procedure InputRnd(var m1 : a; VAR m2 : b);
const rnd = 100;
var
   i: byte;
begin
   randomize;
   for i := 1 to n do

     m1[i] := random(rnd);
     randomize;
     for i:=1 to m do
     m2[i] := random(rnd);
     writeln;
     writeln(' Massivi A , B  ');
     writeln;
     end;


procedure Print(m1 : a; m2 : b;Var p : integer);
var
   i : byte;
begin
   writeln;
   writeln( ' Massiv A ');
   for i := 1 to n do begin
      writeln;
      write(m1[i]:3,'  ');
   end;
   writeln;
   readln;
   writeln;
   writeln( ' Massiv B ');
   for i := 1 to m do begin
      writeln;
      write(m2[i]:3,'  ');
   end;
   writeln;
   readln;

   writeln;
   writeln(' P  =  ', p:3);
   writeln;
   end;

procedure Reform(m1 : a; m2 : b; var p: integer);
var
   i : byte;
   k:integer;
begin
   p:=1;
   if m1[1]>m2[1] then
   writeln( ' a[1]>b[1]   P = proizvedenie a[i] ');
   if m1[1]>m2[1] then
   for i:=1 to n do p:=p*m1[i]

   else if m1[1]<m2[1] then
   writeln( ' a[1]<b[1]   P = proizvedenie b[i] ');
   if m1[1]<m2[1] then
   for i:=1 to m do p:=p*m2[i]
  
   else if m1[1]=m2[1] then begin
   writeln( ' a[1]=b[1]   P = proizvedenie (a[i]+b[i]) ');
   k:=n;
   if m<k then k:=m;
   for i:=1 to k do p:=p*(m1[i]+m2[i]);
   end;

   writeln;
   writeln('Sdelano. Podtverdit i vivesti...');
   readln;
end;

var
   m1 : a;
   m2 : b;
   p:integer;
   z : byte;

begin

   repeat

      writeln('1 - Input ');
      writeln('2 - Input RND');
      writeln('3 - Print');
      writeln('4 - Reform');
      writeln('5 - Quit');

      readln(z);

      case z of
       1 : Input(m1, m2);
       2 : InputRnd(m1, m2);
       3 : Print(m1, m2,p);
       4 : Reform(m1, m2, p);
     end;
   until z=5;

end.

procedure Proc( <...> var Name: SomeType );
begin
end;

function Proc( <...> ): SomeType;
var Name: SomeType absolute Result;
begin
end;