Написать программу, которая вычисляет сумму первых n целых положительных чисел. Кол-во суммируемых чисел должно вводиться во время работы программы. Ниже представлен рекомендуемый вид экрана во время работы программы :

Вычисление суммы четных положительных чисел.
Введите количество суммируемых чисел и нажмите
-> 12
Сумма первых 12 положительных четных чисел равна 156.

ааа... только без else

здесь не нужно else это упрощенная версия команды..

ну вот я и говорю) а вы написали.

точно.. сам себя перехитрил)) убери и все в порядке, хотя это не ошибка - программа выполняется и так))

Program z1; var i, n, b: integer; begin writeln ('Введите любое целое число'); read (n); for i:=1 to n*2 do if i mod 2=0 then b:=b+i; writeln (b); end.