Написать программу нахождения суммы чисел от 1 до n.для pascal abc

Программа во вложениях

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested inTraveller

e verbs in

lian restaurant. He couldn't

(3)

(work

iness, his own restaurant. At

Adam wasn't interested in

ответ:

const

  a = 10;

  b = 6;

  r = 8;

var

  x, y : real;

begin

  readln(x, y);

  if // верхняя заштрихованная область

      > =0) and (x==0) and (y< =b)) and (sqr(x)+sqr(y)> =sqr(

      or

      // нижняя заштрихованная область

      ((x< =0) and ((y< =0) and (y> =-b)) and (sqr(x)+sqr(y)< =sqr(

  then writeln('да')

  else writeln('нет');

end.

объяснение:

попробуй вот так, извини если не получилось