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. //конец программы
