Укажите значение величины S после выполнения следующих команд: S:=7; S:=23; S:=S+6​

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.

program w7w7;

var a: real;

begin

readln (a);

if a< 0 then writeln ('otritsatelnoe chislo');

if a> 0 then  writeln ('pologitelnoe chislo');

end.

во времена конфуция писали на узеньких дощечках 'из расщепленного бамбука. тонкую кисточку или палочку обмакивали в черную тушь и наносили иероглифы сверху вниз. если делали ошибку, то соскабливали написанное ножом. потом в дощечках делали отверстия и продевали бечевку. связка бамбука и была древнекитайской книгой.

var

a: integer;

begin

readln(a);

writeln(a*(a div 10 + (a mod 10)*10));

end.