var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
Program z1;
var a, b:integer;
begin
write(' Введите возраст Саши - '); read(a);
write(' Введите возраст Mаши - '); read(b);
if a>b then writeln(' Саша старше Маши на ',a-b,' лет');
if a<b then writeln(' Маша старше Саши на ',b-a,' лет');
<span>end.</span>
12 × 1024 × 8<span> = </span><span>98304 бит
</span>98304 / 24576<span> = </span><span>4 бит (вес символа) </span>
Горький острый. теплый горячий.сухой влажный. я не я не знаю как то так