21 lines
335 B
ObjectPascal
21 lines
335 B
ObjectPascal
// Ïðîöåäóðíûå ïåðåìåííûå
|
|
|
|
function add(a,b: integer): integer;
|
|
begin
|
|
Result := a + b;
|
|
end;
|
|
|
|
function mult(a,b: integer): integer;
|
|
begin
|
|
Result := a * b;
|
|
end;
|
|
|
|
var p: function (a,b: integer): integer;
|
|
|
|
|
|
begin
|
|
p := add;
|
|
writeln('Ñóììà 2 è 3 ðàâíà ',p(2,3));
|
|
p := mult;
|
|
writeln('Ïðîèçâåäåíèå 2 è 3 ðàâíî ',p(2,3));
|
|
end. |