Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  dimitar
Language: PASCAL
Code:
program kvadrat i kub;
var n,kvadrat,kub:real;
  begin
  writeln('vnesete....n=');
  Readln(a);
kvadrat:=n*n
kub=kvadrat*n
writeln(n:7:2,'na kub e',kub:16:2,',)
end
Comments: