Если не ошибаюсь, это она. либо там выведется кол.во яблок каждому ученику.
program ...;
var
n, a, k, y : integer;
begin
readln (y, k);
a:= y mod k
y:= y div k
writeln (a, y);
end.
Var
d: array [1..6] of integer;
i:integer;
begin
for i:=1 to 6 do
read(d[i]);
for i:=1 to 6 do begin
if d[i]>0 then
write(d[i],' ');
end;
end.
Т.к. язык не указан, написал на паскале.
На сколько я понял, это должно выглядеть как-то так:
https://pastebin.com/puua5grq