Максимально . в паскале не разбираюсь​

var a,c,x: longint;

readln(a);

readln(x);

c= a div (x+2);

println(c);

Объяснение:

Вместо div можно использовать /

program ABC;

var

   a, x, c: real;

begin

   write('Введите значения a и x: ');

   read(a, x);

   c := a / (x + 2);

   Write('c = ', c)

end.