Срочно! Информатика 10 класс!Паскаль.
процедура получает на вход два числа:
a1 - первый элемент арифметической прогрессии
d - разница между элементами арифметической прогрессии.
Процедура должна распечатать четвёртый элемент этой арифметической прогрессии

var a1,d:longint;

procedure arif (a1,d:longint);

begin

  write(a1+3*d);

end;

begin

  read(a1,d);

  arif(a1,d);

end.