помогите найти ошибку - паскаль

[ai\ekcah^p]

Написать программу для вычисления заданного выражения и вывода на экран полученного значения, используя заданный циклический оператор
-0,5 + 0,7 – 0,9 +...+ 0,23 Repeat

PROGRAM LAB2;
var s,x,t,z,p:real;
begin
s:=-0.5;x:=2;t:=10;z:=-1;p:=0;
repeat
s:=s+p;
z:=-1*z;
p:=z*(5+x)/t;
x:=x+2;
if x>4 then t:=100;
until p>0.23;
writeln('summa=',s);
end.

[Sazary]

Так как-то:

uses crt;
var s,x,z,t:real;
begin
clrscr;
s := 0;
x := 5;
z := -1;
repeat
 if x<10 then t := 10
 else t := 100;
 s := s + z*(x/t);
 x := x + 2;
 z := -z;
until x>23;
writeln('summa=',s:5:2);
readln;
end.

[Larec]

После первого прогона у тебя P=0.7, а это больше 0.23 поэтому надо до этого один раз прогнать цикл.Поменял условие с p>0.23 на p=0.23 и в конце добавил s:=s+p; т.к. -0.25<0.23!Надеюсь поймёшь!

PROGRAM LAB2;
var s,x,t,z,p:real;
begin
s:=-0.5;x:=2;t:=10;z:=-1;p:=0;
s:=s+p;
z:=-1*z;
p:=z*(5+x)/t;
x:=x+2;
if x>4 then t:=100;
repeat
s:=s+p;
z:=-1*z;
p:=z*(5+x)/t;
x:=x+2;
if x>4 then t:=100;
until p=0.23;
s:=s+p;
writeln('summa=',s);
end.