Программа, реализующая указанную задачу, может выглядеть так:

Program Primer;
Var
  x,y,z,r,p: Integer;
  c:Real;
Begin
  x:=2;
  y:=3;
  z:=x+y;
  r:=x-y;
  p:=x*y;
  c:=x/y;
  WriteLn('Сумма x и y равна ',z);
  WriteLn('Разность x и y равна ',r);
  WriteLn('Произведение x и y равно ',p);
  WriteLn('Частное x и y равно ',c);
  ReadLn;
End.

    Обратите внимание на тот факт, что для размещения значения частного требуется переменная вещественного типа вне зависимости от того, делится нацело или нет одно число на другое!

    Лучше вместо конструкции Write использовать конструкцию WriteLn, которая обеспечивает не только вывод на экран, но и осуществляет перемещение курсора в начало новой строки.