Помогите пожалуйста. Очень прошу) Заранее благодарна) Дана программа:Program p1;var a:integer.beginwrite(Введите целое число:);readln(a);if(a>=100) and (a

1. Нет, Да
2.
Program p2;
var a:integer.
begin
write(Введите целое число:);
readln(a);
if(a>-14.5) and (aelse write( Нет);
End.
3. 
Program p3;
var a,b:integer.
begin
write(Введите числа:);
readln(a,b);
if(a0) or (b0)then write( Есть число, не равное нулю)
else write(Нет чисел, равных 0 );
End.
4.
Program p4;
var a,b,c:integer.
begin
write(Введите числа:);
readln(a,b,c);
if(a mod 20) and (b mod 20) and (c mod 20)then write(A*B*C);
End.