program project1;
uses crt;
var a,b:integer;

procedure nacitaj;
begin
  writeln('zadaj cisla a, b');
  readln(a,b);
end;

function scitaj(prve, druhe: integer):integer;
begin
  writeln('momentalne sa vykonava funkcia scitaj');
  writeln('vysledok suctu sa vlozi do navratovej premennej s menom funkcie');
  scitaj:=prve+druhe;
end;

procedure podakovanie(copisat:string);
begin
  writeln(copisat);
end;

var vysledok: integer;
begin
  nacitaj;
  vysledok:=scitaj(a,b);
  writeln('vypocitali sme ',vysledok);
  podakovanie('program ukonceny');
  readln;
end.