fork download
copy 
  1. program CirclesSquare;
  2. const
  3. 	PI = 3.1415926;
  4. var
  5. 	r, s	:real;
  6.  
  7. begin
  8. writeln(' Введите радиус :');
  9. readln(r);
  10.  
  11. writeln(' Площадь круга :');
  12. s := PI * r * r;
  13. writeln(s:15:3, ' м2')
  14. end.
  15.  
Success #stdin #stdout 0.01s 5276KB
comments (?)
stdin
copy 
85.788
stdout
copy 
 Введите радиус :
 Площадь круга :
      23120.805 м2
https://ideone.com/gSHHwU
language:
Pascal (fpc 3.0.4)
created:
4 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!