fork download
copy 
  1. program CircleAreaPerim1;
  2. var
  3.   r, area, perim, pi: real;
  4. begin
  5.   pi := 3.1415926535;
  6.   r := 5;   { <-- готове значення }
  7.   area := pi * r * r;
  8.   perim := 2 * pi * r;
  9.   WriteLn('Radius: ', r:0:2);
  10.   WriteLn('Area = ', area:0:4);
  11.   WriteLn('Perimeter = ', perim:0:4);
  12. end.
  13.  
Success #stdin #stdout 0s 5324KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Radius: 5.00
Area = 78.5398
Perimeter = 31.4159
https://ideone.com/yukFKo
language:
Pascal (fpc 3.0.4)
created:
2 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!