1. program

fuggv.pas

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.

2. program

felcsereles.pas

program felcsereles;
  procedure csere(var a,b:integer);
  var c:integer;
  begin
    c:=a;
    a:=b;
    b:=c;
  end;
var szam1, szam2: integer;
begin
  writeln('Az elso szam: ');
  readln(szam1);
  writeln('A masodik szam: ');
  readln(szam2);
  csere(szam1, szam2);
  writeln('Szam1: ', szam1);
  writeln('Szam2: ', szam2);
  readln;
end.

3. program

fakt.pas

program fakt;
  function faktorialis(n: byte):qword;
  begin
    if n = 0 then
      faktorialis:=1
    else
      faktorialis:=n * faktorialis(n-1);
  end;
var n: byte;
begin
  writeln('Kerek egy szamot, n = ');
  readln(n);
  writeln(n, '! = ', faktorialis(n));
  readln;
end.