<span>a = (x ^ 2 - x * y)/(0.7 * sin (Log(abs(x))))</span>
<span>Две скобки не хватает.</span>
Var i,k,s:integer;
begin
while k<15 do
begin
i:=i+1;
if i mod 5=3 then
begin
if k<14 then write (i,'^2 + ')
else write (i,'^2 = ');
s:=s+sqr(i);
k:=k+1;
end;
end;
writeln (s);
end.
Последовательность.
Блин, это просто, он это будет делать по цепочке, как и перечислила его мать.
Поставить антивирус, платный/бесплатный, не скачивать всякие ресурсы с неизвестных источников, не заходить на неизвестные сайты и т.д