Дано натуральное число M. Составить программу, которая разбивает это число нв три прибризительно равных числа. ПОМОГИТЕ ПОЖАЛУЙСТА!!!​

Program example;

var m,y: Single;

Begin

write('Vvod M: ');

readln(x);

y:=x/3;

writeln(y:0:0, ' ', y:0:0, ' ', y:0:0);

End.

Если есть вопросы, то пишите мне в лс.