Program Procedury3;

var Mercedes: integer;

procedure dalnice(var Ford:integer);
begin
  Ford:=120;
end;

begin
  Mercedes:=30;
  writeln('Mercedes bude v Brn za ', Mercedes, ' minut');
  dalnice(Mercedes);
  writeln('Mercedes bude v Brn za ', Mercedes, ' minut');
  readln;
end.
