18, 45, 90 И 99. - Может быть такие точно.
Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do
Begin
x:=sqr(i);
s:=s+x;
End;
Writeln('suma =',s );
<span>End.
2) второе решение
</span>Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do s:=s+sqr(i);
Writeln('suma =',s );
End.<span>
</span>
a) нет переменной b
b) После команды «Спросить переменную b» изменить переменную а на b и запустить программу.
Я проверила, у меня в паскале все правильно. Название программы восхитительное:)))
Кодировать в png, не в jpeg, gif
Ну или настроить степень сжатия в соответствующих кодировальных программах