Нужно составить программу ветвления по информатике!Для задачи:
На приеме у педиатра производится измерение роста и всеса грудных детей в возрасте до трех месяцев.Компьютер определить рост и вес месяц назад .
Рост и вес ребенка в день приема,если ребенок на три сантиметра вырос и более,а вес увеличился на 700 грамм и более выдается сообщениие ,что развивается хорошо,если прибавил меньше трех сантиметров или вес меньше чем на 700 грамм,выдается сообщение ребенок меньше нормы

Решение на Pascal (если не подходит - скажите):program pediatr;var  h_old, h_new, w_old, w_new: integer;begin  write('введите рост ребёнка месяц назад (в см): ');  readln(h_old);  write('введите рост ребёнка сейчас (в см): ');  readln(h_new);  write('введите вес ребёнка месяц назад (в г): ');  readln(w_old);  write('введите рост ребёнка сейчас (в г): ');  readln(w_new);  if ( (h_new - h_old) >= 3 ) and ( (w_new - w_old) >= 700) then    writeln('Ваш ребёнок развивается хорошо')  else    writeln('Ваш ребёнок меньше нормы');end.