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

():

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

Пояснения

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