Даны три числа а, 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.