алг
нач
цел 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.