Question

В основной программе запросить у пользователя ввод 4 чисел, при помощи процедуры перемножить первое и третье число и передать ответ основной программе для вывода на экран. Сложить вторую и четвертую переменную при помощи функции. Вывести результат на экран.

Answer 1

Procedure multiply(x, y:Integer; var res:Integer);
Begin
res := x * y;
end;

Function add(x, y:Integer): Integer;
Begin
add := x + y;
end;

var
a, b, c, d, res1, res2:Integer;
Begin
Read(a, b, c, d);
multiply(a, c, res1);
res2 := add(b, d);

Writeln(res1);
Writeln(res2);
end.

Answer 2

===== PascalABC.NET =====

procedure Перемножить(a, b: real; var res: real) := res := a * b;

function Сложить(a, b: real) := a + b;

begin

 var n1, n2, n3, n4, r: real;

 Read(n1, n2, n3, n4);

 Перемножить(n1, n2, r);

 Print('Произведение', r, '  сумма', Сложить(n2, n4))

end.