Составьте алгоритм для определения наименьшего из 3 положительных чисел.

Question

Составьте алгоритм для определения наименьшего из 3 положительных чисел.

Answer 1

var

  n1,n2,n3,min:word;

begin

  write ('N1= ');readln(n1);

  write ('N2 = ');readln(n2);

  write ('N3 = ');readln(n3);

  if (n1

    if (n2

  writeln ('Min: ',min);

  readln;

end.

Answer 2

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

---