СРОЧНО! ТО, ЧТО НА ФОТО НУЖНО РЕШИТЬ НА ПАСКАЛЕ, ПОЖАЛУЙСТА!

Ответ:

var

 a , c : integer;

begin

  read(a);

  a := a + 9;

  if (a <= 20) then begin

    c := a + 74;

  end

  else begin

    c := (a * 8) + 9;

  end;

  write(c);

end.