Напишите программу на паскале

Объяснение:

uses crt;

var k:integer;

x,e,t,s:real;

begin

clrscr;

repeat

write('x<>0 x=');

readln(x);

until x<>0;

repeat

write('e>0 e=');

readln(e);

until e>0;

if e>=sqr(x/2)then s:=sqr(x/2)

else

begin

k:=0;

t:=sqr(x/2);

s:=t;

while abs(t)>e do

begin

k:=k+1;{увеличиваем счетчик}

t:=-t*sqr(x/2)/sqr(k+1);

s:=s+t;{прибавляем}

end;

end;

write('S=',s:0:5);

readln

end.