Пользователь вводит с клавиатуры три целых числа. Необходимо найти максимальное из них и вывести на экран.
Для нахождения максимального числа, необходимо каждое число сравнить с парой других, и если данное число одновременно больше обоих, то оно и есть максимальное из трех.
Uses Crt;
Var
a,b,c,max:Integer;
Begin
ClrScr;
Write('a = ');
Readln(a);
Write('b = ');
Readln(b);
Write('c = ');
Readln(c);
If (a > b) and (a > c) Then max := a;
If (b > a) and (b > c) Then max := b;
If (c > a) and (b < c) Then max := c;
Write('max=', max);
Readln;
End.