Нахождение максимума из 3 целых чисел -Pascal(Паскаль)

Пользователь вводит с клавиатуры три целых числа. Необходимо найти максимальное из них и вывести на экран.

Для нахождения максимального числа, необходимо каждое число сравнить с парой других, и если данное число одновременно больше обоих, то оно и есть максимальное из трех.

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.

Leave a Comment