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.