7.2.. Za učitane a i b izračunati z prema izrazu z := min(a², b²).

Opis programa:

Listing programa:

PROGRAM P07211043;
USES
  WinCrt;
VAR
  a, b, min: Real;
BEGIN
  Write('Dva broja ');
  Readln(a, b);
  IF SQR(a) < SQR(b) THEN 
    min := SQR(a)
  ELSE
    min := SQR(b);
  Writeln('Od brojeva ', a, ' ', b);
  Writeln('manji kvadrat je ', min);
END.

II varijanta

PROGRAM P07211043_2;
USES
  WinCrt;
VAR
  a, b, min: Real;
BEGIN
  Write('Dva broja ');
  Readln(a, b);
  min := SQR(a)
  IF SQR(b) < min THEN 
    min := SQR(b);
  Writeln('Od brojeva ', a, ' ', b);
  Writeln('manji kvadrat je ', min);
END.

Ispis na ekranu:

Index