Найти чему равно значение переменной S после выполнения цикла
K:=0; S:=30
while k<=18 do begin
K:=k+3
S:=s+2*k
end;
writeln(s)
end.