Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  123
Language: PASCAL
Code:
program HelloWorld;
var
  a    : Byte;
begin
uses crt;
var
a,i: integer;
s: real;
begin
clrscr;
s:=0;
write('a = ');
readln(a);
for i := 1 to a do
begin
s:=s+(2*i-1);
end;
writeln(s:3:3);
readln;
end.
  Readln(a);
end.          
Comments: