Zadatak 9.5.2. : Za upisani poluprečnik izračunati obim (koristi se ugradjena vrijednost broja PI bez konstante Pi)

Listing programa:

PROGRAM p09511002;
{Naci obim kruga (koristi se ugradjena vrijednost broja PI bez konstante Pi)}
Var 
  i : Integer;
  r : Real;

FUNCTION Obim:Real;  {funkcija}
BEGIN
  Obim := 2 * r * pi;
END;

BEGIN    {Glavni program} 
  Write('Otkucaj poluprecnik ');
  Readln(r);
  Writeln ('Poluprecnik ',r, '  ', 'Obim ',Obim);
  READLN;
END.

Ispis na ekranu:

Index