Составьте программу нахождения максимального из 4 чисел a,b,c,d
Пример ввода:
2 5 7 1
Пример вывода:
Большее из чисел равно 7

Program naibolwee;
var a,b,c,d,max1,max2:real;
begin 
 Readln(a,b,c,d);
 if a>b then max1:=a else max1:=b; 
 if c>d then max2:=c else max2:=d; 
 if max1>max2 then Writeln(Наибольшее число=,max1) else Writeln(Наибольшее  число равно=,max2) 
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.