Вычисляем значение exp ( -x * x) !! ряд Тейлора

program ex;
const Maxlter = 500;         {max колво интераций}
var x, eps : double;          {аргумент и точность}
   c,y  : double;               {член ряда и его сумма}
   n    : integer;               {номер члена ряда}
   done  : boolean;   
 
begin
writeln('BBeduTe argymeHT u To4HocTb:');
readln(x, eps);
done := true;
c := 1 - (x * x);   {первый член ряда}
y := c;                 {задаем начальное значение суммы}
n := 1;
while abs(c) > eps do begin
c := -x /(n + 1);   {очередной член}
y := y + c;              {плюсуем к сумме}
inc(n);
if n <= Maxlter then continue;
writeln('P9D PaccxoduTbc9!');
done := false; break
end;
if done then
writeln('ArgumeHT: ', x:10:6, #13#10,
'3Ha4EHue func:    ', y:10:6, #13#10,
'eps ', eps:8:6, ' 3A ',   n, 'uHTepacuu',
'EXP(-x*x) = ', exp( - x * x):10:6;                                {*прямое вычисление}
);
readln;
end.

uses crt;
function treugolnik(x,y,z:real):boolean;
begin
treugolnik:=(x>abs(y-z))and(x<y+z);
end;
var x,y,z:real;
begin
clrscr;
writeln('Введите значения сторон треугольника:');
readln(x,y,z);
writeln('Стороны= 3; 7; 9');
writeln(treugolnik(3,7,9));
writeln('Стороны= ',x:0:1,' ',y:0:1,' ',z:0:1);
writeln(treugolnik(x,y,z));
writeln('Стороны= ',2*x:0:1,' ',3*y:0:1,' ',x+y:0:1);
writeln(treugolnik(2*x,3*y,x+y));
readln
end.