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

Opis rješenja:

Listing programa:

PROGRAM P07211071;
USES 
  WinCrt;
VAR 
 a,b,min,min1,z:real;
BEGIN
 WRITE('Ukucajte brojeve a i b: ');
 READLN(a,b);
 min:=a;
 IF a>b THEN
  min:=b;
 min1:=SQR(a);
 IF SQR(a)>SQR(b) THEN
  min1:=SQR(b);
 IF b>=0 THEN
  z:=2*min
 ELSE
  z:= min1;
 WRITELN('z = ',z);
END.
 

Ispis na ekranu:

Index