как собрать большого микселя из трех

Ответ от Ёимон Сукиасян[гуру]
var a, b, c, max: longint; begin readln(a, b, c); max:=a; if b > max then max:=b; if c > max then max:=c; writeln(max); readln; end a, b, c - наши числа max - максимальный Вводим три числа,

Ответ от Lavelas 745[новичек]
var a,b,c : real; begin WriteLn ('введите a,b,c '); ReadLn (a,b,c); if (a>b) and (b>c) then WriteLn ('a') else if (b> a) and (a>c) then WriteLn ('b') else writeLn ('c'); end.

Ответ от Константин Тарасенко[новичек]
var a,b,c,max:integer;begin read(a,b,c); if a > b then max:=a else max:=b; if max > c then write(max) else write(c);end.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]