Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Даю 25 баллов!! Даны три целых числа. Найти произведение двух наибольших из них. Напишите программу в паскале.

Ответ оставил Гость

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.