Question

Помогите
var k,s :integer;
begin
s:=0
k:=0
while k <30 do begin
k:=k+3;
s:=s+k;
end;
write(s);
end.

Answer 1

а с чем помочь-то надо?