program CalculateFunctions; var x, y1, y2: Integer; begin Write('Enter x: '); ReadLn(x); y1 := x + 2; y2 := x * 2; WriteLn('y = x + 2: ', y1); WriteLn('y = x * 2: ', y2); end.