Переделать из функции в процедуру.

[snectars]

Дали задание. Подпрограмму из функции нужно переделать в процедуру. Совсем не понимаю, помогите, пожалуйста...

PROGRAM w3;
  VAR  a,b,c,d: INTEGER;
  FUNCTION f(x,y,z: BYTE): BYTE;
    VAR  w: INTEGER;
  BEGIN
    w:=x*y;
    IF y<z+1 THEN w:=w MOD 3;
    f:=w;
  END;
BEGIN
  a:=3; b:=2; c:=1;
  d:=10*f(a,b,c);
  WRITE(d);
  a:=4*f(b,c,d);
  WRITE(a);
END.

[min@y™]

program w3;

procedure f(x, y, z: byte; var w: integer);
begin
  w:= x * y;
  if y < z + 1 
    then w:= w mod 3;
end;

var 
  a, b, c, d: integer;

begin
  a:= 3; 
  b:= 2; 
  c:= 1;
  f(a, b, c, d);
  write(10 * d);
  f(b, c, d, a);
  write(4 * a);
end.