Program Procedura;

procedure Karel(a,b:integer);
begin
  writeln(a, ' + ', b, ' = ', a+b);
end;

var c,d: integer;

begin
  writeln('Karel um tak stat.');
  writeln('Zadej prvn slo: ');
  readln(c);
  writeln('Zadej druh slo: ');
  readln(d);
  Karel(c, d);
  readln;
end.
