Если я всё правильно понял, то должно быть так:
var a:integer;
begin
if a mod 2 = 0 then a:=a*a else a:=a*a*a;
write(a);
end.
Var x: integer;
Begin
Read (x);
If x mod 5 = 0 and x mod 13 = 0 then
Write(x);
end.
Тема:
1.осень
2.лучшая техника 2016
3.новая техника 2016
4.стоит ли покупать новый айфон 7
5.почему дети так не любят школу?
6.я ♥ информатику
7.что я буду делать на осенних каникулах?
B=4
a=3
b=<span>7-2*a-b=7-2*3-4=7-6-4=-3
a=b/3-a=-3/3-3=-1-3=-4
ответ:a=-4
b=-3</span>
52 байта,так как 1 символ весит 1 байт,а символов в данном предложении 52.