Алг нач цел s, k s:=0 нц для k от 3 до 10 s:=s+13 кц вывод s кон
Program begin var s,k:integer; s:=0; while ((k<11) and (k>2)) do begin s:=s+13; end; writeln(s); end.