Взаписи 1 2 3 4 5 6 7 8 9=10 расставьте между некоторыми цифрами знаки + и – .

Var a,b,c,n:integer;
begin
for a:=1 to 7 do
  for b:=a+1 to 8 do
    for c:=b+1 to 9 do
      begin
      n:=a*100+b*10+c;
      write(n:4)
      end;
end.

var
  i,j,n:integer;
  a:array[1..4,1..5]of real;
begin
for i:=1 to 4 do
  begin
  for j:=1 to 5 do
    begin
    a[i,j]:=random*2-1;
    write(a[i,j]:20:15);
    if a[i,j]>=0 then n:=n+1;
    end;
  writeln;
  end;
writeln('Количество неотрицательных: ',n);
end.

var
  i,j,sum:integer;
  a:array[1..3,1..4]of integer;
begin
for i:=1 to 3 do
  for j:=1 to 4 do
    readln(a[i,j]);
writeln('Массив:');
for i:=1 to 3 do
  begin
  for j:=1 to 4 do
    begin
    sum:=sum+a[i,j];
    write(a[i,j]:4);
    end;
  writeln('sum=':8,sum);
  sum:=0;
  end;
end.

//PascalABC.Net
var
  r,x,y:real;
  c:string;
begin
  Write('Введите R: '); Read(r);
  Write('Введите координаты x и y: '); Read(x,y);
  if sqr(x)+sqr(y)=sqr(r) then c:='Точка лежит на окружности'
  else c:='Точка не лежит на окружности';
  Writeln(c)
end.

Тестовые решения:
Введите R: 2
Введите координаты x и y: 0 2
Точка лежит на окружности

Введите R: 2
Введите координаты x и y: -1.5 0.7
Точка не лежит на окружности

Введите R: 2
Введите координаты x и y: 1 1
Точка не лежит на окружности

Введите R: 2
Введите координаты x и y: 3 0
Точка не лежит на окружности

Блок-схема во вложении