. Скласти програму, яка буде отримувати від користувача два цілих числа: кількість учнів n та кількість яблук k. Учні ділять між собою яблука порівну, залишок
залишається в кошику. Вивести на екран скільки яблук дістанеться кожному
учню, а скільки залишиться в кошику.

8, 1, 4, 1, 5, 9, 6, 7, 2

var n,z: longint;

begin

  read(n);

  z: =abs(n);

  z: =z-2;

  writeln(z);

end.

обработка с электронных таблиц автоматизирует весь процесс и ускоряет выполнение работы.

program chislo;

var x: integer;

          z,y : real;

begin

readln(x);

y: =5.5;

z: = x-y;

writeln(z);

end.

при запуске программы вводите эти значения и тестируете.