Ввели 4 числа найти наименьшее из них
язык кумир​

var a, b, c, d, e: integer;

begin

writeln('Введите число')

readln (a);

readln (b);

readln (c);

readln (d);

if e<a then e:=a;

if e<a then e:=b;

if e<a then e:=c;

if e<a then e:=d;

writeln(e);

end.

Объяснение: