найти наименьшее из 3 чисел по Паскалю

 program min;
uses crt;
var a,b,c:integer;
begin
  read(a,b,c);
  if (a<b) and (a<c) then writeln(a)
  else if b<c then writeln(b)
  else writeln(c);
end.