ROGRAM Program7; USES WinCrt; VAR a, b, c, max: Real; BEGIN Write('Vasa tri broja '); Readln(a, b, c); max := a; IF b>max THEN max := b; IF c>max THEN max := c; Writeln('Od brojeva ', a, ' ', b, ' ', c); Writeln('najveci je ', max); END.