Даны действительные числа x, y, z. вычислить max (x+y+z, xyz

Uses crt; var x,y,z: real; begin read(x,y,z); if x+y+z> x*y*z then writeln(x+y+z) else writeln(x*y*z); end.

Uses crt; var x,y,z,max: real; begin       readln(x,y,z);       if x+y+z> x*y*z then writeln('max=x+y+z=',x+y+z);       if x+y+z< x*y*z then writeln('max=x*y*z=',x*y*z);       if x+y+z=x*y*z then writeln('x*y*z=x+y+z=',x*y*z); end.

Среди всех системных программ, с которыми приходится иметь дело пользователям компьютеров, особое место занимают операционные системы. операционная система компьютером, запускает программы, обеспечивает защиту данных, выполняет различные сервисные функции по запросам пользователя и программ. каждая программа пользуется услугами ос, а потому может работать только под той ос, которая обеспечивает для неё эти услуги.операционная система предоставляет интерфейсы и для выполняющихся приложений, и для пользователей. программы пользователей, да и многие служебные программы запрашивают у операционной системы выполнение тех операций, которые достаточно часто встречаются практически в любой программе. к таким операциям, прежде всего, относятся операции ввода-вывода, запуск или остановка какой-нибудь программы, получение дополнительного блока памяти или его освобождение и многие другие. подобные операции невыгодно каждый раз программировать заново и непосредственно размещать в виде двоичного кода в телепрограммы, их удобнее собрать вместе и предоставлять для выполнения по запросу из программ. это и есть одна из важнейших функций операционных систем.

Var     k: string; begin     read(k);     if (length(k)  =  3) then write(k,  '  -  3-ное  число)     else write(k,  '  -  не  3-ное  число'); end. var     a,b,c: longint; begin     read(a, b, c);     if (a  < = b)and(a < =  c) then write(a)     else (b  < =  a)and(b  < =  c) then write(b)     else write(c); end. var     a,b,c: longint; begin       read(a,  b,  c);         if (a =  b) then writeln(a, ' ', b, '  -  взаимно противоположные  числа');     if (a =  c) then writeln(a, ' ', c, ' - взаимно противоположные числа');       if (b  =  c) then writeln(c, ' ', b, ' - взаимно противоположные числа');         end. var     a,b,c,d: real; begin       read(a,  b,  c,  d);         if (a  =  b)and(b  =  c)and(c  =  d) then  write('ромб')     else write('не  ромб'); end.