даны три числа а,b,c. найти произведение и сумму чисел a,b,c max из трех

program tcd;var a,b,c:integer;beginreadln(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.