Посмотри что получается если выполнить команды для чисел 10 и 22 допиши команды алгоритма и выполни команды для чисел 8 и 30 и следущие к нему же 1) начало 2) запиши число 3) вычти если полученное число меньше 10 то 5) прибавь иначе 6) вычти 7) прибавь 8) конец

Надо смотреть не по горизонтале, а по вертикале  1. начало  2. запиши число  3. вычти 10 (разница между 5 и 15, 20 и 30 и т.п.)  4. если полученное число меньше 10 (разница 15 и 18, 30 и 27 и т.п.)  то 5. прибавь 3  иначе 6. вычти 3  7. прибавь 2 (разница 18 и 16, 27 и 25   8. конец        мы так решали) 

Ниже приведен вариант, когда программа запустится, но не выполнится:

program Zadacha;  // удален символ 1

var a, b, c, d, s, p, r, q: integer;

begin // began заменен на begin

write (‘Ведите первое число=’, a); // В конце вместо , должно быть ;

writeln (‘Ведите второе число=’, b);// В конце вместо , должно быть ;

writeln (‘Ведите третье число=’, c);// В конце вместо , должно быть ;

writeln (‘Ведите четвертое число=’, d);

s:=a+b+c+d;

p:=a*b*c*d;

r:=a-b-c-d;

q:=a div b;

writeln ('Сумма=',s);

writeln ('Произведение=',p);

write ('Разность=',r);

write ('Частное=',q)

end.

Чтобы программа выполнялась нормально, нужно изменить ее следующим образом:

program Zadacha;

var a, b, c, d, s, p, r, q: integer;

begin

write ('Ведите первое число='); read(a);

writeln ('Ведите второе число='); read(b);

writeln ('Ведите третье число='); read(c);

writeln ('Ведите четвертое число='); read(d);

s:=a+b+c+d;

p:=a*b*c*d;

r:=a-b-c-d;

q:=a div b;

writeln ('Сумма=',s);

writeln ('Произведение=',p);

write ('Разность=',r);

write ('Частное=',q)

end.

Также остается неясным, что подразумевалось под "разностью" и "частным". Если "разностью" еще можно назвать выражение a-b-c-d, то a/b - точно не частное. Это только целая часть от деления a на b. Чтобы это было частным, нужно переменную q объявить как real:

program Zadacha;

var a, b, c, d, s, p, r: integer;

var q: real;

begin

...

Program mac; uses crt;   const n=9; var c,i: integer; a: array[0..n] of integer; begin writeln('введите исходный массив'); for i: =0 to n do  begin       write('a[',i,']=');   readln(a[i]);   end;   writeln('вывод исходного массива'); for i: =0 to n do        write(a[i],' ');   writeln;   c: =a[n];     for i: =n-1   downto   0 do    a[i+1]: =a[i]; a[0]: =c; writeln('вывод   результативного   массива'); for i: =0 to n do  write(a[i],' ');   readln end.