.(Даны 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.