uses wincrt; var a:bayte begin write('bir sayi gir'); readln(a); a:=a+10 writeln('girilen sayinin 10 fazlasi',a); end.