Помогите пожалуйста с программой в КуМире Ввести три числа и найти наибольшее из них....

Question

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

Answer 1

Var a, b, c: integer;
begin
writeln('Введите три числа:');
readln(a, b, c);
if (a > b) and (a > c) then writeln(a);
if (b > a) and (b > c) then writeln(b)
else writeln(c)
end.