program preteceni;
var a,b:integer;
    soucet:integer; {zmente typ na longint}
begin
  write('zadej cislo a: ');
  readln(a); {zadejte treba 32000}
  write('zadej cislo b: '); {zadejte 10000}
  readln(b);
  soucet:=a+b;
  write('a+b=', soucet); {vysledek vyjde nesmyslne pro integer}
  readln;
end.