Напишите программу, которая получает с клавиатуры три целых числа и находит наибольшее из них.Пример:Введите четыре числа: 1 2 5 Наибольшее число 5

var a,b,c,m:integer;

begin

write('Введите 3 числа (через пробел): ');

read(a,b,c);

m:=a;

if b>m then m:=b;

if c>m then m:=c;

writeln('Наибольшее число: ',m)

end.

m:=a;  //предположив что наибольшее число а, запишем его в переменную m

if b>m then m:=b;  //сравним переменную m c числом b, если число b больше переменной m, то присвоим переменной m значение числа b

if c>m then m:=c;  //сравним переменную m c числом c, если число c больше переменной m, то присвоим переменной m значение числа c