Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  produs
Language: PASCAL
Code:
var a:array[1..5]of integer;
p,n,i:byte;
Write('p=',p);read(p);
begin
for i:= 1 to 5 do
writeln('n=',i);
p:=n*i;
write('p=',p);
end;
readln(i);
end.

          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
Comments: