program MinNumber;vara, b, c, d, min: integer;beginwriteln('Введите четыре числа:');readln(a, b, c, d);
min := a;
if b < min thenmin := b;
if c < min thenmin := c;
if d < min thenmin := d;
writeln('Наименьшее число: ', min);end.
program MinNumber;
var
a, b, c, d, min: integer;
begin
writeln('Введите четыре числа:');
readln(a, b, c, d);
min := a;
if b < min then
min := b;
if c < min then
min := c;
if d < min then
min := d;
writeln('Наименьшее число: ', min);
end.