Бывают левое ,правое ,нижнее ,верхнее. Не бывает "общее"
Правильными орераторами присваивания будут
1) х=:а
2) х:=122
4) х:=а*с
Переводим в двоичную:
1 - 0001
2 - 0010
8 - 1000
1 - 0001
Итого: 1001010<span>000</span>001 (два незначащих нуля у первой единицы убрал)
Переводим в восьмеричную:
001 - 1
000 - 0
010 - 2
001 - 1
1(или 001) - 1
Итого: 11201
Ответ: три единицы
В конце readln не требуется, тк считывать нечего.
И чтоб не было некрасивого числа в конце допиши "writeln('площ. треуг.s=',s:3:2 );
Program n1;
var
N, K, i: integer;
begin
readln(N, K);
while (N - K >= 0) do
begin
N := N - K;
i := i+ 1;
end;
writeln('Частное от деления: ',i);
writeln('Остаток: ', N);
end.