Не могу решить( задан фрагмент программы. определите, какие значения примут переменные в результате её выполнения x=4, y=2 y = x / 2 if y > 0 then z = 2*(x + y) elseif x > 5 then z = 10 * y else z = x * y ^ 2 end if p = (x + y + z)

Решение на 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.

While (tnum != 0)  //tnum, tden - числитель и знаменатель искомой                                    дроби
    {
        if (tnum < tden)
        {
            temp = tnum;
            tnum = tden;
            tden = temp;
        }
        tnum = tnum - tden;
    }
    gcd = tden;  //вычисляем наибольший общий делитель
    numerator = numerator / gcd;  //делим числитель и знаменатель на
                                                      НОД, получаем сокращенную дробь
    denominator = denominator / gcd;