A = 15 ifa > 5:
a = 10

a = 11
if a > 6:
a =a+ 13
else:
a = a- 8

a = 11
if a < 6
a =a+ 13
else:
a=a-8

a = 16
b = 14 + a
print( "b=", b)

a=7
b=9+a
print(*a=F(",b,")")

a=10
if a<5
a=a+12
else:
a=a-7

a=-3
if a<5
a=5

a = 15
if a > 5:
a = 5
a=a+2​

без остатка нет

25: 2=12+1 клетка в остатке

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

я думаю что основанием будет число 7 

проверка: 7^2*1+7^1*2+7^0*2= 49+14+2=65

за тридевять земель или к чёрту на кулички