помогите пожалуйста с Паскалем!!!

[STEPP]

напишите пожалуйста прогу в Паскале:


Вводяться и суммируются положительные числа. При вводе нуля от значения текущей суммы отнять последнее введённое число. При вводе отрицательного числа закончить работу.


помогите плиз!!!

[Vedrus]

Свои наработки показывай.

From Stilet: Цену прибереги для фрилансовых тем. Вот перенесем ее тогда скажешь

[SERG1980]

uses crt;
var chislo,last,summa:integer;
begin
clrscr;
summa:=0;
last:=0;
repeat
writeln('Vvedite chislo');
readln(chislo);
if chislo>0 then
begin
 summa:=summa+chislo;
 last:=chislo;
end
else if chislo =0 then summa:=summa-last;
 until chislo<0;
 writeln ('Summa = ',summa);
 readln;
end.