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.