Ответы и объяснения

2013-12-25T06:07:35+00:00
Var a,b,c,max:real;
Begin
write('Введите 3 числа: '); readln(a,b,c);
if (a>b) and (a>c) then max:=a;
if (b>a) and (b>c) then max:=b;
if (c>b) and (c>a) then max:=c;
writeln('Наибольшее число: ',max);




End.