سلام
میحوام یه if تا اخر برنامه اجرا بشه م÷ل
for i:=0 to end of program do
if a<0 then
....