Пример программы на суммирование ряда с заданной точностью

():

uses
  WinCrt;
const
  eps=1e-5;
var
  i: integer;
  a, sum: real;
begin
  sum:=0;
  a:=1; i:=0;
  while a>eps do
    begin
      i:=i+1;
      a:=a/i;
      sum:=sum+a;
    end;
  writeln('Сумма:',sum:12,'найденная с точностью ',eps:8,
          'включает',i:5,' слагаемых');
end.

Пояснения

Структура программы
Uses
const
Правила записи имен
Правила записи чисел
var
Integer
real
begin
Присвоение (:=)
while...do
Арифметические выражения
Логические величины
writeln
end