Составить программу нахождения суммы двух наибольших из трех различных чисел — Pascal(Паскаль)

uses crt;
var a,b,c,mn,mx,sr:real;
begin
clrscr;
writeln('Введите 3 числа:');
readln(a,b,c);
mn:=a;
if b<mn then mn:=b;
if c<mn then mn:=c;
mx:=a;
if b>mx then mx:=b;
if c>mx then mx:=c;
sr:=a+b+c-mn-mx;
write('Произведение двух наибольших=',mx*sr:0:2);
readln
end.