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

на всяк случай

program p1;var a,b,c:integer;beginwriteln('Введите число 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.

Решение с циклами. На мой взгляд, оно менее запутанное, чем с условиями.