даны три числа а,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 (agt;b) and (agt;c) then writeln(a,' -Большее');
if (bgt;a) and (bgt;c) then writeln(b,' -Большее');
if (cgt;a) and (cgt;b) then writeln(c,' -Большее');
end.