zadanie w pascalu
: 27 lis 2011, 23:32
napisz program obliczający iloczyn n liczb rzeczywistych różnych od zera podawanych z klawiatury język Turbo Pascal wszystko pięknie łądnie jeśłi chodzi o mnożenie ale nie wiem jak zawrzec w tym zeby liczby byly rozne od zera, mam tyle, proszę o pomoc i wyrozumialosc 
var a,iloczyn:real;
i,n: longint;
begin iloczyn:=1;
writeln('Ile liczb?');
readln(n); for i:=1 to n do
begin writeln('Podaj liczbe'); readln(a); if a=0 then
begin writeln('Podales zero!');end; iloczyn:=iloczyn*a; end;
writeln('iloczyn liczb rzeczywistych wynosi ', iloczyn:2:2);
readln; end.
var a,iloczyn:real;
i,n: longint;
begin iloczyn:=1;
writeln('Ile liczb?');
readln(n); for i:=1 to n do
begin writeln('Podaj liczbe'); readln(a); if a=0 then
begin writeln('Podales zero!');end; iloczyn:=iloczyn*a; end;
writeln('iloczyn liczb rzeczywistych wynosi ', iloczyn:2:2);
readln; end.