паскаль. что такое in
type mas=array[1..n] of real;
procedure Vvod(var a:mas;var n:integer;c:char);
var i:integer;
begin
repeat
write('Ðàçìåð ìàññèâà ',c,' äî ',n,' n=');
readln(n);
until n in [1..n];
writeln('Ââåäèòå ',n,' ýëåìåíòîâ ìàññèâà ',c);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a);
end;

как можно написать until n in [1..n]; без in?

  • поскольку n всегда входит в множество [1..n], а вопрос задан "как можно написать until n in [1..n]; без in?" то ответ
    until True;

    ну жа, это если разрелить конфликт между переменной n и одноименной константой

Вас заинтересует