Program Procedury2;

var c,d: integer; //toto jsou globln promnn

procedure Karel(a,b:integer);
var c:integer;  //toto je lokln promnn
begin
  c:=a+b;
  writeln(a, ' + ', b, ' = ', c);
end;

procedure Nacteni;
begin
  writeln('I Karel um stat.');
  writeln('Zadej prvn slo: ');
  readln(c);
  writeln('Zadej druh slo: ');
  readln(d);
end;

begin
  Nacteni;
  Karel(c, d);
  readln;
end.
