Определить максимальное и минимальное значение из трех различных вещественных чисел.
работа на поскале

да это она спс паскаль не ругается

немного ошибся)

var A, B, C, MAX: real; begin MAX:=a; if b > max then max:=b; if C > max then max:=c; end;Примерно так