Пример программы для нахождения суммы всех целых чисел от 1 до N.

(* Нахождение суммы всех целых чисел от 1 до N *)
uses
  WinCrt;
var
  I,n: integer;
  s: integer;
begin
  write(' Введите n:');
  read (n); s:=0;
  for i:=1 to n do
   s:=s+i;
  writeln(' Сумма целых чисел от 1 до', n:3,' равна:',s:6);
end.

Пояснения

Структура программы
Комментарий
Uses
var
Правила записи имен
Integer
begin
write, writeln
read
Присвоение (:=)
Арифметические выражения
for...do...
end