Срочно, помогите.
Написать программу на Паскале, вы вводите два числа - дату рождения и номер месяца (используя переменные) и получаете результат прописывая данный алгоритм.

program qq;

var

  x,n,r : integer;

begin

  write('Введите месяц рождения: '); read(n);

  write('Введите день рождения: '); read(x);

  r:=x*2; r:=r+5; r:=r*50; r:=r+n; r:=r-250;

  writeln('День: ', r div 100, ' Месяц: ', r mod 100);

end.

Объяснение:

Считываем месяц и день

Производим с числом все операции из условия

Выводим его первые 2 числа и последнии