Пуск-Панель управления-Мышь- Свойства я думаю так
var a: real;
begin
read(a);
if (a>=-5) and (a<=5) then writeln('TRUE')
else writeln('FALSE');
end.
2)♀️я не уверена и не очень поняла,но должно быть 6
Program z7; Var i,n,s:integer; a:array [1..1000] of integer; p:real;Begin n:=0; for i :=1 to 1000 do begin read(a[i]); n:=n+1; if (a[i]= 0) then break; end; for i :=1 to n do begin write(a[i],' '); end; s:=0; for i:=1 to n do s:=s+a[i]; p:=s/n; writeln; writeln(p:3:3);End.