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

Question

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

Answer 1

var a1,d:longint;

procedure arif (a1,d:longint);

begin

  write(a1+3*d);

end;

begin

  read(a1,d);

  arif(a1,d);

end.

Comments

надо с процедурой