DECLARE FUNCTION max (a, b, c)
DATA 10,20,50,100,200,75
READ a, b, c
k = max(a, b, c)
PRINT "maximum 1 gruppy="; k
READ l, m, n
t = max(l, m, n)
PRINT "maximum 2 gruppy="; t
INPUT "vvedite a ", a
INPUT "vvedite b ", b
INPUT "vvedite c ", c
p = max(a, b, c)
PRINT "maximum 3 gruppy="; p
r = max(k, t, p)
PRINT "maximum sredi maximumov="; r
 
FUNCTION max (a, b, c)
IF a > b AND a > c THEN max = a ELSE IF b > a AND b > c THEN max = b ELSE max = c
END FUNCTION