Hogyan kell a következő feladatot megoldani Pascalban?

Hát, az összeadás műveletét inkább egy függvényre bíznám, mintsem eljárásra... Nem tudom, van-e Pascalban eredmény szerinti paraméterátadás, így maradok a függvénynél.

program EztTeIsMegcsinalhattadVolna;

uses

.. CRT;

var

.. InputA, InputB: integer;

procedure OutputResult(Value: integer);

begin

.. writeln('Az eredmény: ', Value);

end;

function Add(A, B: integer): integer;

begin

.. Add := A + B;

end;

begin

.. write('Adja meg az első számot: ');

.. readln(InputA);

.. write('Adja meg a második számot: ');

.. readln(InputB);

..

.. OutputResult(Add(InputA, InputB));

end.

Tessék az eljárás 2 az 1 :)

procedure Kiir(a, b : integer);

begin

Inc(a, b);

WriteLn('Az eremény: ', a);

end;

Igaz, ami igaz, nem volt megadva, hogy két eljárás legyen.

Azért én megírtam úgy is (SimkoL, köszi az inces tippet):

program osszeg;

var a,b : integer;

procedure osszeadas;

begin Inc(a,b) end;

procedure kiiras(FoloslegesParameter : integer);

begin WriteLn(FoloslegesParameter) end;

BEGIN

        Write('Első szám: '); ReadLn(a);

        Write('Második szám: '); ReadLn(b);

        osszeadas;

        kiiras(a);

END.

Ó, a bánatba, megint igazad van:

program osszeg;

var a,b : integer;

procedure kiiras(HasznosValtozo : smallint);

begin WriteLn(HasznosValtozo) end;

BEGIN

        Write('Első szám: '); ReadLn(a);

        Write('Második szám: '); ReadLn(b);

        Inc(a,b);       

        kiiras(a);       

END.

+ Bevitel:

WriteLn('Írj be két számot: '); ReadLn(a,b);