Даны 3 числа.Найти минимальное из них

uses crt;var

  a,b,c,min:integer;begin  writeln('Введи три числа: ');  readln(a,b,c);  min:=a;  if b<min then min:=b;  if c<min then min:=c;  writeln('Наименьшее из этих чисел:  ',min);end.