Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so just use oauth login instead. :)
Paste
Pasted by freeze ( 17 years ago )
var
c, P: integer;
BEGIN
P:=1;
write('-> ');
repeat
read(c);
if (c>0) then P:=P*c;
until (c=0);
END.
Revise this Paste
Children: 6656