7.2.. Učitati realan broj. Ako je negativan izračunati apsolutnu vrijednost. Realan broj zaokružiti na prvi manji cijeli broj. Ako je cijeli broj neparan izračunati kub inače ispisati paran. Ispis ima izgled:

Listing programa:

PROGRAM P07211085;
USES 
  WinCrt;
VAR 
 a:real;
    b:integer;
BEGIN
 WRITE('Broj = ');
 READLN(a);
 IF a < 0 THEN
  a:=ABS(a);
 b:=TRUNC(a);
 WRITELN('Prvi manji cijeli broj = ',b);
 IF (b MOD 2 = 0) THEN
  WRITELN('Broj je paran.')
 ELSE
  WRITELN('Broje je neparan, njegov kub je: ',SQR(b)*b);
END.

Ispis na ekranu:

Index