Определить максимальное и минимальное значение из трех различных вещественных чисел. работа на поскале
Var A, B, C, MAX: real; begin MAX:=a; if b > max then max:=b; if C > max then max:=c; end; Примерно так
да это она спс паскаль не ругается
единственное в конце точ а не точка с запятой
немного ошибся)