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