[Diseased Head]

Тогда так:

Код:

program SUMMA;

Var
k: integer;

Begin
writeln('Вычисление суммы четных положительных чисел.');
writeln;
writeln('Введите количество суммируемых чисел и нажмите ENTER:');
readln(k);
if k <= 0 then writeln('Неверный ввод')
else writeln('Сумма первых ',k,' положительных, чётных чисел равна ',k*(k+1));
readln;
End.