Неозаглавленный

program gdgtdh;
var
  a, b, c, min: real;
begin
  writeln('Введите первое число:');
  readln(a);
  writeln('Введите второе число:');
  readln(b);
  writeln('Введите третье число:');
  readln(c);
  min := a;
  if b < min then
    min := b;
  if c < min then
    min := c;
  writeln('Наименьшее число:', min:0:2);
end.