9.5.3. Za upisani poluprečnik izraćunati obim (pet puta upis se izvodi u glavnom programu).

Listing programa:

PROGRAM p09511003;
{Naci obim kruga}
Var 
  i : Integer;
  r : Real;

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

BEGIN    {Glavni program} 
  FOR i := 1 TO 5 DO
    BEGIN    
      Write('Poluprecnik ');
      Readln(r);
      Writeln ('Poluprecnik ',r, '  ', 'Obim ',Obim);
    END;
  READLN;
END.
      

Ispis na ekranu:

Index