1. в
2. а
3. а) 5-3<4 - true<br> б) ((x=1) - false or (x>0) - false) - false
4. n=(20-5)/3+1=6
// PascalABC.NET
// Версия 3.3.5 сборка 1662 (29.04.2018)
5.
begin
var (a,b):=ReadInteger2('a,b->');
Println('n=',(cos(a)+cos(b))/(a+b));
end.
6.
begin
var a := 1;
for var i := 1 to readinteger('n->') do
begin
Println($'a[{i}]={a}');
a := 2 * a + 1;
end;
end.