Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  7
Language: PASCAL
Code:
Program Kasimova;
var a, b, c: real;
begin
  writeln (' a');
  readln (a);
  writeln (' b');
  readln (b);
  writeln (' c');
  readln (c);
    if a>0 then a:=a*a*a;
    if b>0 then b:=b*b*b;
    if c>0 then c:=c*c*c;
  writeln ('a=', a);
  writeln ('b=', b);
  writeln ('c=', c);
end.     
Comments: