1. дано 3 числа. найти произведение двух наименьших из этих чисел написать программу на pascal

Первая задача

Program DvachAnon;
var a,b,c,max:real;
begin 
  write('Введите первое число: ');
  read(a);
  write('Введите второе число: ');
  read(b);
  write('Введите третье число: ');
  read(c);
  if a>b then
     max:=a
  else
     max:=b;
  if c>max then
      max:=c;
  write ('Произведениe двух наименьших из трех чисел: ',a*b*c/max);
end.