ПОМОГИТЕ СРОЧНО
1) с клавиатуры вводятся два целых числа А и В. Написать программу, которая выводит число 1, если числа равны, и число 0 в противно случае.
2) написать программу, в которой подсчитывается сумма только положительных чисел из трёх данных.
3) определить принадлежит ли точка с координатами (x,y) первой четверти.
Всё надо в паскале написать

1)program task1;var a,b:integer;beginwrite('');readln(a);write('');readln(b);if a=b thenwriteln('1');elsewriteln('0');end.2)program task2;var a,b,c,s:integer;beginwrite('a:');readln(a);write('b:');readln(b);write('c:');readln(c);s:=0;if a>0 thens:= s+a;if b>0 thens:= s+b;if c>0 thens:= s+c;write(s);end.3)program task3;var x,y:integer;beginwrite('x=');readln(x);write('y=');readln(y);if (x>0) and (y>0) thenwrite('Принадлежит');elsewrite('Не принадлежит')end.