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