SzorMinF

Program SzorMinF;
Uses Crt;
Var
a,b,c,d:integer;

Function Szorzas(x,y:integer):integer;
Begin
Szorzas:=(x*y);
End;

Function Min(x,y:integer):integer;
Begin
Osztas:=(x-y);
End;

BEGIN
Clrscr;
Writeln('Mondj ket szamot, megmondom a szorzatat,kulombseget!');
Write('Az elso szam');
Readln(a);
Write('A masodik szam');
Readln(b);
c:=Szorzas(a,b);
Writeln;
Writeln('A ket szam szorzata: ',c);
Readln;
d:=Min(a,b);
Writeln('A ket szam kulombsege',d);
Readln;
END.