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

Program project1777; uses math, Classes; var x,y,z: integer; begin writeln ('vedite 1 chislo'); readln (x); writeln ('vedite 2 chislo'); readln (y); writeln ('vedite 3 chislo'); readln (z); begin if (x>y) and (x>z) then writeln ('samoe bolshoe chislo ',x) else if (y>x) and (y>z) then writeln ('samoe bolshoe chislo ',y) else if (z>x) and (z>y) then writeln ('samoe bolshoe chislo ',z); end; begin if (x