Program tcd; var a,b,c:integer; begin readln(a,b,c); writeln(,a,'*',b,'*',c,'=',a*b*c); writeln(,a,'+',b,'+',c,'=',a+b+c); if (a>b) and (a>c) then writeln(a,' -Большее'); if (b>a) and (b>c) then writeln(b,' -Большее'); if (c>a) and (c>b) then writeln(c,' -Большее'); end.
var a,b,c:integer;
begin
readln(a,b,c);
writeln(,a,'*',b,'*',c,'=',a*b*c);
writeln(,a,'+',b,'+',c,'=',a+b+c);
if (a>b) and (a>c) then writeln(a,' -Большее');
if (b>a) and (b>c) then writeln(b,' -Большее');
if (c>a) and (c>b) then writeln(c,' -Большее');
end.