Question

найти максимальное число из трех чисел a,b,c записать условие 8 класс мы токо вчера пршли max:=  помогите пожалуйста срочно нужно

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.