Помогите , пожалуйста. Задача пр информатике. Изучили операторы for, if ,while , repeat ....

Question

Помогите , пожалуйста. Задача пр информатике. Изучили операторы for, if ,while , repeat . Составьте программу , пожалуйста. Если на одну чашу весов посадить мальчика , который весит n - кг , а на др. чашу весов насыпать n-кг конфет , к мальчику посадить девочку , которая весит на 5 кг меньше , а конфеты гораздо тяжелее детей , сколько необходимо съесть конфет детям , чтобы чаши весов уравновесились ?

Answer 1

var
 n,m,i:integer;
 begin
 write('Введие вес мальчика: ');
 readln(n);
 write('Введите массу конфет (кг): ');
 readln(m);
 i:=0;
 while n+n-5<>m do
 begin
   i:=i+1;
   m:=m-1;
 end;
 writeln('Детям необходимо сьесть ',i,' кг конфет');
 end.