30 , нужна , ! что будет выведено на экран после выполнения фрагмента программы: begin x: =1; if (x< > 1) or (x> 10) then y: =6 else y: =0; writeln(y); end. a)1 b)6 c)0 d)y что будет выведено на экран после выполнения фрагмента программы: begin: a: =6; if (a> 10) or (a< 6) then n: =a+5 else n: =a-1 writeln(n); end. a)11 b)10 c)5 d)17

В программах опечатки.

В первой С
Во второй С

Uses crt;
var
n,a,b,c,m:integer;
begin
clrscr;
write('Vvesti 3-x znachnoe chislo ');
readln(n);
c:=n mod 10;
a:=n div 100;
n:=n div 10;
b:=n mod 10;
writeln('cifri chisla ',a:3,b:3,c:3);
write('vvesti cifru ');
readln(m);
if (m=a) or (m=b) or (m=c) then writeln('YES') else writeln('NO');
writeln('end programm ');
readkey;
end.
Program pr1;
uses crt;
var
a,r:real;
begin
clrscr;
write('Vvesti storonu kvadrata A ');
readln(a);
write('Vvesti radius kruga R ');
readln(r);
if 2*r =a then writeln('krug vpisan v kvadrat') else
if abs(a*sqrt(2) - 2*r)<=0.01 then writeln('kvadrat vpisan v krug')
else writeln(' ne vpisivajutsya');
writeln('end programm ');
readkey;
end.

Program filework;
var f:text;
    i, n, count:integer;
    l:string;
    arr:array of real;
    answ:real;
begin
  assign(f, 'C:\Users\HO4HOU_TTaPKuPucT\Desktop\test_file.txt'); // В кавычках путь к файлу
  reset(f);
  while not eof(f) do begin
    readln(f, l);
    if StrToFloat(l) > 0 then
    Inc(count);
  end;
  SetLength(arr, count);
  reset(f);
  i:=0;
  while not eof(f) do begin
    readln(f, l);
    if StrToFloat(l) > 0 then begin
      arr[i]:=StrToFloat(l);
      Inc(i);  
    end;
  end;
  answ:=arr[0];
  for i:=1 to arr.Length - 1 do
  if arr[i] < answ then answ:=arr[i];
  writeln(answ);
  close(f);
end.

P.S. Программа работает с неограниченным числом положительных чисел в файле