Помогите составить программу в паскале. Даны три числа a,b,c. Найти произведение (a*b*c) и max из трех.

95 руб

var a, b, c : byte;
begin
readln(a, b, c);
writeln('proizvedenie = ', a*b*c);
if (a > b) and (a > c)
then writeln('chislo A maximalno')
else if b > c
then writeln('chislo B maximalno')
else writeln('chislo C maximalno')
end.

var a,b,c,max: integer;
begin
write ('a='); readln(a);
write ('b='); readln(b);
write ('c='); readln(c);

writeln ('proizv=',(a*b*c));
max:=a;
if b>max then max:=b;
if c>max then max:=c;

writeln ('max=',max);
readln;
end.