PROGRAM PROGRAM6; USES WinCrt; VAR a, b, max: Real; BEGIN Write('Dva broja '); Readln(a, b); IF SQR(a) > SQR(b) THEN max := SQR(a) ELSE max := SQR(b); Writeln('Od brojeva ', a, ' ', b); Writeln('veci kvadrat je ', max); END. II varijanta PROGRAM P07211042_2; USES WinCrt; VAR a, b, max: Real; BEGIN Write('Dva broja '); Readln(a, b); max := SQR(a); IF max < SQR(b) THEN max := SQR(b); Writeln('Od brojeva ', a, ' ', b); Writeln('veci kvadrat je ', max); END.