var k, s: integer;

begin

s:=1;

k:=0;


while k < 13 do begin

s:=s+2*k;

k:=k+4;

end;

write(s+k);

end.


нужно составить уравнение/неравенство для решения для лучшего понимая как можно подробнее

так, ну смотри.

у тебя изначально даны две переменные

s, которое равно 1

k, которое равно 0

программа заходит в цикл, в котором пока k будет меньше 13

будут выполняться данные вычисления

получается, что каждый раз, числу s и k будут присваиваться новые значения

щас распишу

1. s=1+2*0 (s=1)
2. k=0+4 (k=4)
3. s=1+2*4 (s=9)
4. k=4+4 (k=8)
5. s=9+2*8 (s=25)
6. k=8+4 (k=12)
7. s=25+2*12 (s=49)
8. k=12+4 (k=16)

цикл прервался! т.к. 16 меньше 13

теперь мы выводим сумму s и k

49+16=65