Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  chislo
Language: PASCAL
Code:
program chislo ;
var a: integer ;
begin
  writeln('введите число a=');
  Readln(a);
if a > 0 then 
a:=sqrt(a)
else
a:=sqr(a);
writeln('ответ a ',a);
readln(a);
end.          
          
          
Comments: