Ты хоть сама поняла что написала извиняюсь конечно
Инструментальное по, прикладное по и системное по
Задание 9 - 1056 бит или 132 байта
Книга - это уже источник инфо. Скорее всего, ее надо порекомендовать, опубликовать и т.д.
var a,b: integer;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
if not(a=b) then writeln('a + b = ',a+b)
else
writeln('a * b = ',a*b);
end.