Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Помогите!
Ввести три числа и найти наибольшее из них.
Пример:
Введите три числа:
4 15 9
Наибольшее число 15

Ответ оставил Гость

Program Henry;
var
a,b,c,max:real;
begin
writeln(Здравствуйте, введите 3 числа: );
readln(a,b,c);
if (a>b) and (a>c) then
 max:=a
else
 if b   max:=c
 else
  max:=b;
writeln(Наибольшее число:  ,max);
end.