test-1.pas

program Main;
var x, y : integer;
begin { Main }
    y := 7;
    x := (y + 3/2) * 3;
    writeln('x=',x,'y=',y);
end.  { Main }