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

Question

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

Answer 1

uses crt;
var

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