Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  bai1
Language: PASCAL
Code:
program HelloWorld;
uses crt;
var
  f:text;
  n:integer;
begin
  assign(f,'d:\b.inp');reset(f);
   read(f,n);
  close(f);
  writeln(n*n);
  Readln
end.          
          
          
          
          
          
          
          
          
          
          
          
          
          
Comments: