Области показаны на приложенных скриншотах.
В примере б) левое и правое неравенство (когда они истинные) дают не пересекающиеся области на плоскости. Левое неравенство- всё, что вне окружности радиусом 3, а правое- всё, что внутри ромба, целиком находящегося внутри вышеупомянутой окружности. Поэтому, всё выражение будет истинным, только если оба неравенства будут ложными (дадут результат false).
Попробуй что-то типо такого
Н-1
О-4
И т.д и т.п
14сит
Есть несколько вариантов узнать значение переменной в любой момент работы программы
- пошаговое исполнение в редиме отладки (debug) и через watch или наведения мыши смотреть значение в определенный момент
- вывод в лог, или так называемый дебаг логированием. Логом может служить не только текстовый файл, но и консоль
- дополнительные способы типа assert
Program gt;
var a:array[1..6]of integer;
i,s:integer;
begin
randomize;
s:=0;
for i:=1 to 6 do
begin
a[i]:=random(101)+20;
write(a[i],' ');
s:=s+a[i];
end;
writeln;
writeln(s);
end.