Question

Дано 4 числа (без разницы x,y,z,q),составить блок схему для нахождения минимального числа при условии,что все числа неравны.

Answer 1

program abc;
var x,min,i:integer;
begin
min:=30000;
for i:=1 to 4 do
begin
  writeln('Ввежите число');
  readln(x);
  if x<min then min:=x;
end;
writeln(min);
end.