rzutowaniePowtorzenie

program nazwa;
uses crt;
var cos : string;
    liczba:byte;
    a,b,c : integer;
    codeBl : integer;
begin
  liczba:=123;
  Str(liczba,cos);
  Val(cos,a,codeBl);
  a:=a+5;
  writeln(a);
  readkey;end.