Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  NestedLoop.pas
Language: PASCAL
Code:
program NestedLoop;
uses crt;
var
  a, b    : Byte;
begin
 clrscr;
 for a:=0 to 4 do
 begin
  writeln('value of a is ', a);
  for b:= 4 downto 0 do
   writeln('value of b is ',b)
 end;
 readkey
end.          
Comments: