Даны три различных вещественных числа. Определить, какое из них (первое, второе или третье) самое большое и вывести сообщение. Если самое большое... - вопрос №1458334

число больше 10, то его необходимо увеличить на 50 и распечатать, если меньше либо равно, то просто распечатать. Числа a, b, c не могут быть одинаковыми. Var a, b, c, m: real; Begin Writeln('Введите три числа:'); Readln(a, b, c); if (a > b) and (a > c) and (a > 10) then begin m:= a+50; writeln('первое',m); end; if (a > b) and (a > c) and (a a) and (b>c)and (b > 10) then begin m:=b+50; writeln('второе',m); end; if (b> a) and (b>c)and (b a) and (c > b) and (c > 10)then begin m:=c+50; writeln('третье ',m); end; if (c> a) and (c>b)and (c