Ниже программа вводит с клавиатуры три целых числа, вычисляет два числа – минимальное из них и произведение этих чисел. на экран выводится сумма последних цифр всех пяти чисел (по одной последней цифре от каждого числа). опишите использованные в программе процедуры. var a, b, c, d, f, z: integer; begin vvod(a, b, c); min(a, b, c, d); f : = a * b * c; z : = 0; sum(a, z); sum(b, z); sum(c, z); sum(d, z); sum(f, z); writeln(z) end.
procedure vvod(var a, b, c: integer);
begin
readln(a);
readln(b);
readln(c);
end;
procedure min(const a, b, c: longint; var d: longint);
var
i: longint;
begin
d := a;
if d > b then
d := b
else
if d > c then
d := c;
end;
procedure sum(const ch:longint;var z:longint);
begin
z := z + ch;
end;
var
a, b, c, d, f, z: integer;