Помогите пожалуйста решить желая бы первуууую!!!

Язык паскаль, я правильно разумею?

даа да да

1. Программка, проверяющая сумму цифр трёхзначного числа на кратность семи:

var

 x, a, b, c: integer;

begin

 readln(x);

 a := x div 100;

 b := (x div 10) mod 10;

 c := x mod 10;

 if (a + b + c) mod 7 = 0 then

   write('Да')

 else

   write('Нет')

end.

2. Эта программка будет писать "принадлежит" и для области точек, лежащих между 2-мя прямыми на графике ниже окружности (к примеру, для точек с координатами (-2, -2) либо (0, -3) либо (1, -5) ).

Чтобы это поправить, можно добавить ещё одно условие (чтоб исключить отрицательные значения игрек-  строка if ygt;=0 then ).

Получим такую программку:

var x,y: real;

begin

readln(x,y);

if x*x+y*ygt;=4 then

if xgt;=-2 then

if ylt;=-x then

if ygt;=0 then

write('принадлежит')

else

write('не принадлежит')

end.

1 задачка)
program sf;
var a,b,c:Integer;
begin
writeln('Введите 3 числа через пробел');
readln(a,b,c);
if a+b+c=7 then writeln('Да')
else writeln('Нет');
end.