вот такая вот таблица истинности и схема
Английский,так как все значения идут на английском и их надо понимать
var
a,b,i,S:integer;
x: array[1..100] of integer;
begin
for i:=1 to 31 do
begin
x[i]:=random(1001);
write(x[i]:4);
end;
writeln;
readln(S);
writeln;
for i:=1 to 31 do
begin
if x[i]>S then
write(i:4);
end;
end.
это число в экпоненциальной записи
![1.234E+04=1.234*10^{4} =12340](https://tex.z-dn.net/?f=1.234E%2B04%3D1.234%2A10%5E%7B4%7D+%3D12340)
другими словами нужно запятую передвинуть на 4 знака вправо