Нужно составить программу ветвления по информатике!Для задачи: На приеме у педиатра производится измерение роста и всеса

Вариант решения на Pascalprogram pediatr;varh_old, h_new, w_old, w_new: integer;beginwrite(\'введите рост ребёнка месяц назад (в см): \');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) thenwriteln(\'Ваш ребёнок развивается хорошо\')elsewriteln(\'Ваш ребёнок меньше нормы\');end.