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

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.