Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  12
Language: PASCAL
Code:
program HelloWorld;
var
a : Byte;
  i,n,s    : int;
begin
n:=6;
s:=1;
i:=0;
while i<=n do
begin
s:=s+i;
i:=i+1;
end;
s:=s+1;
writeln(s,' ',i)
readln;
readln(a);
  
end.          
          
          
Comments: