Информатика - Програмиране с Pascal

[Chacho]

program sdf;

var

sum, prod, i, n, x: real;

begin

sum:=0;
prod:=1;

write('n=');
readln(n);

for i:= 1 to n do
begin
write('x=');
readln(x);
if x<0 then
prod:=prod*x
else
sum:=sum+x;
end;

writeln('sum=', sum);
writeln('prod=', prod);

readln;
end.


Нямам време да я компилирам, надявам се да няма грешки.

[granger]

program sdf;

var

sum, prod, i, n, x: real;

begin

sum:=0;
prod:=1;

write('n=');
readln(n);

for i:= 1 to n do
begin
write('x=');
readln(x);
if x<0 then
prod:=prod*x
else
sum:=sum+x;
end;

writeln('sum=', sum);
writeln('prod=', prod);

readln;
end.


Нямам време да я компилирам, надявам се да няма грешки.

Дано и аз не бъркам,но няма да стане програмата ,ако е с real, типа трябва да е integer, иначе оттам нататък няма друго