7.2.. Za učitane a i b izračunati z prema formuli:

Opis programa: Prvo treba naći maksimum od a i b, pa maksimum od kvadrata a i b te na kraju porediti a i b i izračunati z.

Listing programa:

PROGRAM p07211050;
USES
  WinCrt;
VAR
  a,b,max,max1,z:real;
BEGIN
  Write('Dva broja ');
  Readln(a, b);
  max:=a;
  IF a < b THEN
    max:=b;
  max1:=SQR(a);
  IF SQR(a) < SQR(b) THEN
    max1:=SQR(b);	
  IF a >= b THEN 
    z := max
  ELSE 
    z := max1;
  Writeln('a = ', a, '  b = ', b, '  max = ', max, '  max2 = ', max2, '  z = ', z);
END.

Ispis na ekranu:

Index