program fuggvenyek;
const n=5;
type tomb=array[1..n]of integer;

function osszead2(a,b:integer):integer;
begin
  osszead2:=a+b;
end;

procedure kiirTomb(a:tomb);
var i:integer;
begin
   for i:=1 to n do
     write(a[i],' ');
   writeln;
end;

procedure tombFeltolt(var a:tomb);
var i:integer;
begin
  for i:=1 to n do
    a[i]:=10+random(90);
end;

var a,b,c:integer;  t:tomb;
begin
  writeln('Fuggvenyek es eljarasok.');
  a:=1;
  b:=2;
  c:=2*osszead2(a,b);
  writeln('c=',c);
  {tomb feltoltese veletlen adatokkal}
  tombFeltolt(t);
  {tomb kiiratasa}
  kiirTomb(t);
  readln;
end.