Program p1; var a,b,c:integer; begin writeln('Введите число a'); read(a); writeln('Введите число b'); read(b); writeln('Введите число c'); read(c); writeln('Производная двух максимальных чисел: '); if a>b then if c>b then write(a*c) else write(a*b) else if c>a then write(b*c) else write(b*a); end.
Answers & Comments
Verified answer
Program p1;var a,b,c:integer;
begin
writeln('Введите число a');
read(a);
writeln('Введите число b');
read(b);
writeln('Введите число c');
read(c);
writeln('Производная двух максимальных чисел: ');
if a>b then
if c>b then write(a*c)
else
write(a*b)
else
if c>a then write(b*c)
else write(b*a);
end.