Какое именно? Девятое, десятое или одиннадцатое?
Program ves;
var
i,min,ch:LongInt;
begin
readln(ch);
min:=ch;
for i := 1 to 3 do
begin
readln(ch);
if min>ch then min:=ch;
end;
writeln(min)
end.
пж отметь как лучший
===== PascalABC.NET =====
begin
var a := MatrRandom(3, 7, -99, 99);
a.Println(4);
Writeln;
var i := Range(0, 6).ToArray;
a := a.MatrSlice(Arr(0,1,2), i[:4] + i[5:]);
a.Println(4)
end.
Var a,b,c:integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
b:=(A div 10) mod 10;
c:= A mod 10;
a:= A div 100;
if (a=b)or(b=c)or(c=a) then WriteLn('Да')
else WriteLn('Нет');
End.