По данной готовой программе составить алгоритм и блок схему program pifagor ;
var i,j:Integer;
p:Integer;
begin
write('':4);
for j:=1 to 10 do
write (j:4);
writeln;
for i:=1 to 10 do
begin
write(i:4);
for j:=1 to 10 do
write(i*j:4);
writeln;
end;
readln;
end.

Для решения этого задания надо знать как складываются двоичные числа: 0+0 = 0, 0+1 = 1, 1+0 = 1, 1+1 = 10.
Запишем этот пример в столбик и просто подберём числа, для уверенности можно сложить эти двоичные числа, чтобы знать что мы не ошиблись. Начинаем подбирать числа с конца, т.к. при сложении в столбик мы складываем с конца.
Видим складываются числа 1 и * и получается 0, это значит что под звёздочкой число 1, 1+1=10, 0 пишем 1 в запоминаем
Потом складываются цифры * и * и 1 (та что мы запомнили) в ответе получается 1, значит под звёздочками 0. 0+1 = 1
Далее складывается * и 0, в ответе 0, значит под звёздочкой 0.
и так далее. 

Свою запись прикреплю в приложении.

ответ: 0101011001 + 1011101001 = 10001000010

P.S. Все нули, которые стоят перед первой единицей в числе, можно опустить т.к. они незначащие. То есть число 0101011001 можно записать так 101011001 

Для задания произвольной прямой на плоскости будем использовать уравнение:
A*x+B*y+C=0;
Тогда, зная коэффициенты (A, B, C) в уравнении прямой и координаты точки X, Y можно будет сделать вывод о расположении прямой и точки.

var a,b,c,x,y:real;
begin
  writeln('Введите коэффициенты прямой a,b,c');
  readln(a,b,c);
  writeln ('Введите координаты точки x,y');
  readln(x,y);
  if (a*x+b*y+c)=0 then writeln ('Точка лежит на прямой')
  else writeln ('Точка не лежит на прямой');
end.

Тест №1
Введите коэффициенты прямой a,b,c
2 4 -8
Введите координаты точки x,y
-4 4
Точка лежит на прямой

Тест №2
Введите коэффициенты прямой a,b,c
2 4 -8
Введите координаты точки x,y
1 4
Точка не лежит на прямой