Question

Найти максимальное число из трех чисел a , b , c . Записать условие

Answer 1

 uses crt;
 var a,b,c,max:integer;
 begin
 writeln('a,b,c');
 readln(a,b,c);
 if a>b then max:=a;
 if b>c then max:=b; 
if c>a then max:=c;
 writeln('max=',max);
end.