var i,s:integer; //создаем целочисленные переменные i и s

begin //начало программы

s:=0; //задаём начальное значение переменной s

for i:=1 to 30 do s:=s+i; //создаём счётчик for от 1 до 30 с последующим суммированием в переменную s

writeln(s); //печатаем переменную s

end. //конец программы