Даны три целых числа. Вывести ** экран наибольшее из трех введенных чисел.

Question

Даны три целых числа. Вывести на экран наибольшее из трех введенных чисел.

Answer 1

Var a,b,c:integer;
Begin
Write('Введите три целых числа: ');ReadLn(a,b,c);
if b>a then a:=b;
if c>a then a:=c;
WriteLn(a);
End.

Answer 2

Program GH;
Var a,b,c,max:integer;
Begin
Writeln ('введите а ');
Read (a);
Writeln ('введите b');
Read (b);
Writeln ('введите c');
Read (c);
Begin
If a>b and a>c then max:=a
Else if b>c then max:=b
Else max:=c ;
End;
Writeln('наибольший элемент равен',max);
End.