Помогите пожалуйста!Срочно необходимо!!!

1. в
2. а
3. а) 5-3lt;4 - true
    б) ((x=1) - false  or (xgt;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-gt;');
Println('n=',(cos(a)+cos(b))/(a+b));
end.

6.
begin 
var a := 1; 
for var i := 1 to readinteger('n-gt;') do 
begin   
Println('a[i]=a');   
a := 2 * a + 1; 
end;
end.