U skoli radimo Pascal u Delphi okruzenju. Za domaci smo dobili da napisemo program koji ce da za bilo koji broj unetih prirodnih brojeva samo negativne sabrati sa brojem 1 (P:=P+negativni broj, gde je P:=1) Glavni problem je u tome sto u slucaju da uneti broj nije manji od nule, kao rezultat stavi vrednost P.

Program Brojevi;
  uses
  SysUtils;
  var i,P,n,broj:integer;
begin
   P:=1;
   write('Koliko brojeva unosis? ');
   read(n);
   for i:=1 to n do
  begin
   writeln('Unesi ',i,'. ','broj ');
   readln(broj);
   if broj<0 then P:=P*broj;
   write('Vrednost je ',P);
   readln;
   readln
  end;
  end.
Odjednom mi se pojavio i problem da kada pokrenem program i na pitanje koliko brojeva unosis, koji god broj da stavim, on me pitati unesi 1. broj i kada ga unesem, odmah izracuna, a da nije pitao Unesi 2. broj, 3. broj,...
Valjda sam dobro opisao problem, posto mi nesto nije dobro danas.

Nisam nikada radio u Pascalu pa ću napamet da izmenim neke stvari kako mislim da bi možda trebalo 

Program Brojevi;
  uses
  SysUtils;
  var i,P,n,broj:integer;
begin
   P:=1;
   write('Koliko brojeva unosis? ');
   read(n);
   for i:=1 to n do
   writeln('Unesi ',i,'. ','broj ');
   readln(broj);
   if broj<0 then
   P:=P+broj;
   else
   write('Vrednost je ',P);
   end;
   readln;
   readln;
  end.

Poenta je u tome sto, bez obzira na to da li si u if naredbi stavio uslov else write('Vrednost je', P) ili van if naredbe, on ce uvek napisati vrednost je 1.