fork download 
  1. program CircleData;
  2. uses Math;
  3. var
  4.   r, s, l: Real;
  5. begin
  6.   r := 5;
  7.   s := Pi * Sqr(r);
  8.   l := 2 * Pi * r;
  9.   writeln('=== Завдання 1 ===');
  10.   writeln('Радіус = ', r:0:2);
  11.   writeln('Площа кола = ', s:0:2);
  12.   writeln('Довжина кола = ', l:0:2);
  13. end.
  14.  
Success #stdin #stdout 0s 5312KB
comments (?)
stdin 
Standard input is empty
stdout 
=== Завдання 1 ===
Радіус = 5.00
Площа кола = 78.54
Довжина кола = 31.42
https://ideone.com/UFGpIy
language:
Pascal (fpc 3.0.4)
created:
15 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!