4. 3; 6. 2; 7. 3; 8. 3;5. 4
Var
a, b: integer;
begin
readln(a, b);
writeln('Сумма чисел: ', a+b);
writeln('Разница между числами: ', abs(a-b));
writeln('Квадрат разности: ', sqr(a-b));
writeln('Частное: ', a div b);
writeln('Остаток от деления первого на второе: ', a mod b);
end.
1) 165 = 19.2; 163 = 25
2) 167 = 15
У нас таких учебников нет Откуда мы знаем что это за задача