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

(* Нахождение сумм всех целых чисел и их квадратов от 1 до N *)
uses
  WinCrt;
var
  i, n: integer;
  s1, s2: integer;
begin
  write (' n?');
  read (n);
  s1:=0; s2:=0;
  for i:=1 to n do
  begin (* Начало составного оператора*)
   s1:=s1+i;
   s2:=s2+i*i;
  end; (* Конец составного оператора*)
  writeln (' Сумма целых чисел от 1 до',n:3,' равна: ',s1:6);
  writeln; (* Пропуск пустой строки при печати *)
  writeln (' Сумма квадратов этих чисел равна:', s2:6);
end.

Пояснения

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